for my $key (sort keys %counts) {
    print "$key ==> $counts{$key}\n"
 }