Calculate Percentage for a series of input numbers

## OLD my$sfTotal=86656;
##@sf=(26985,10610,9125,7270,7140,5782,3593,1600,1280,1000,924,800,720,459,320,320,260,200,);
my@sf=(26145,12217,9895,7140,6950,5902,5033,1920,1280,1000,924,800,720,459,320,320,260,200);

my$sfTotal=0;
foreach my$nsf(0..$#sf){
 $sfTotal=$sfTotal+$sf[$nsf];
}
print "sfTotal=$sfTotal\n\n";

foreach my$nsf(0..$#sf){
  my$sf=$sf[$nsf];
  my$p=100*$sf/$sfTotal;
  my$p2=$p;
  $p2=~s/\.(..).*/.\1/;
 # print "sq ft=$sf, percentage=$p2 ($p)\n";
  print "$p2\n";
}