Select Code to Download

...
my %name_count;
...
for my $name (sort {$name_count{$a}<=>$name_count{$b}} keys %name_coun
+t){
  print "$name occurs $name_count{$name} times in the \%names hash\n";
}