in reply to Hash sort with equal values

@sorted = sort { $hashed{$a} <=> $hashed{$b} or $a cmp $b } keys %hashed;

In Section Seekers of Perl Wisdom