#!/usr/bin/perl -w
# percentages: convert counts to percentages
# usage: percentages < file
# note: * first number of line will be used
#       * corrected by factor 74/75
# 20120308 erikt(at)xs4all.nl

$command = $0;
$total = 0;
@lines = ();
@numbers = ();

while (<STDIN>) {
   $line = $_;
   chomp($line);
   ($nbr) = split(/\s+/,$line);
   if (not defined $nbr or $nbr !~ /^\d+(\.\d+)?$/) { 
      die "$command: unexpected line: $line\n"; 
   }
   push(@lines,$line);
   push(@numbers,$nbr);
   $total += $nbr;
}

for ($i=0;$i<=$#lines;$i++) {
   printf "%0.1f%% %s\n",74/75*100*$numbers[$i]/$total,$lines[$i];
}

exit(0);
