Select Code to Download

my @array = qw( a a b c d d );

...

print("$_: $counts{$_}\n")
   foreach @keys;

my @array = qw( a a b c d d );
my %counts;
...

print("$_: $counts{$_}\n")
   foreach sort keys %counts;