Select Code to Download

my %foos;
while (<>) {
...

print("$foos{$_}\t$_\n")
   for sort { $a <=> $b } keys %foos;