Select Code to Download

...
    sort {  $h{$b} <=> $h{$a}  ||  $a cmp $b  }
    keys %saved_key;

my @sorted = 
    sort {          $hash{$b}  <=>  $hash{$a}          ||
...
                     func($a)  <=>  func($b)           ||
             $other{name}{$b}  cmp  $other{name}{$a}    }
    @unsorted;