print "$_ => $word{$_}\n"
   for sort {$word{$a} <=> $word{$b}} keys %word;