Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

my $sum = sum(@count);
print "$_\t=>\t$count[$_]\t(", sprintf('%.2f', ($count[$_]/$sum)*100),
+ "% TTL)\n" for 1 .. 20;

Select or download this

1       =>      20031   (5.01% TTL)
2       =>      20037   (5.01% TTL)
...
18      =>      20157   (5.04% TTL)
19      =>      20088   (5.02% TTL)
20      =>      20154   (5.04% TTL)