foreach my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
    # do something useful
}

##</code><code>##

foreach my $key ( sort my_sorter keys %hash ) {
   # do something useful
}
...
...
sub my_sorter {
    return $hash{$a} cmp $hash{$b};
}