Select Code to Download

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

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