$sorter = \&my_sorter;
foreach my $key (
   map { $_->[0] }
   sort { &$sorter }
   map { [ $_, $hash{$_} ] }
   keys %hash
) {
   # do something useful
}

sub my_sorter {
    return $a->[1] cmp $b->[1];
}