Select Code to Download

use strict;

...
foreach my $key (keys %hash){
    print "$key showed up $hash{$key} times\n" if $hash{$key} != 1;
}