try this:

foreach (sort { ($saved_key{$b} <=> $saved_key{$a}) || ($a cmp $b) } keys %saved_key)

That sorts the hash by values (numerically), and then by keys (alphabetically)