Select Code to Download

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