Hi gravid,

Yep, there's a better solution than messing with Perl's internals :-)

my %hash = ( a=>0, b=>1, c=>0, d=>3 );
foreach my $k ( sort { $hash{$a} <=> $hash{$b} or $a cmp $b } keys %ha
+sh  ) {
    print "$k = $hash{$k}\n";
}
[download]

Always outputs:

a = 0
c = 0
b = 1
d = 3
[download]

Background: If the comparison of the values (<=>) shows they are equal it returns zero, so then the second part of the or expression is evaluated, comparing the keys.

Update: See the multi-field sort in How do I sort an array by (anything)? That FAQ answer also references this article: Far More Than Everything You've Ever Wanted to Know About Sorting

Hope this helps,
-- Hauke D