Select Code to Download

my %count;
while ( <FILE> ) {
...

print "$_ => $count{$_}\n"
    for sort { $count{$b} <=> $count{$a} || $a cmp $b} keys %count;