Or:

for my $key (sort {$hash{$a} <=> $hash{$b}} keys %hash) {
    print "$key: $hash{$key}\n";
}
[download]

or maybe even:

print "$_: $hash{$_}\n" for sort {$hash{$a} <=> $hash{$b}} keys %hash;
[download]