Select Code to Download

#!/usr/bin/perl
use warnings;
...
foreach my $key (sort keys %count) { 
   print "$key was found $count{$key} times\n";
}