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