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