sort
   {
      $href->{$b}[ 1 ]   cmp    $href->{$a}[ 1 ]  ||
                    $b   cmp    $a
   }
   keys %data;