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