Select Code to Download

use strict;
use warnings;
...

print scalar @hits, " different lines selected\n";
print "Line $_->[0] hit $_->[1] times\n" for @hits[0 .. 9];

32768 different lines selected
Line 3532715 hit 724 times
...
Line 28406983 hit 699 times
Line 3172608 hit 696 times
Line 31093751 hit 695 times