#!perl -l
my %tallies=(h=>30,a=>10,j=>1,p=>20);
print "Keys:",keys %tallies;
print "Bad :",sort{$tallies{my $a} <=> $tallies{my $b}} keys %tallies;
print "Good:",sort{$tallies{$a} <=> $tallies{$b}} keys %tallies;
__END__
Keys:phaj
Bad :phaj
Good:japh

##</code><code>##

keys %tallies;

##</code><code>##

sort {my ($a,$b); $a <=> $b } keys %tallies;