$sorter = \&my_sorter;
foreach my $key (sort { &$sorter(\%hash) } keys %hash ) {
   # do something useful
}

sub my_sorter {
    my ($hashref) = @_;
    return $hashref->{$a} cmp $hashref->{$b};
}