print "$_ => $word{$_}\n"
   for sort {
      $word{$b} <=> $word{$a}     # sort values desc
         ||                       # if same, then
      $a cmp $b                   # sort keys asc
   } keys %word
;