Select Code to Download

my @words = do {
    open my $fh, "<", "/usr/dict/words" or die;
...
my %dict;
push @{ $dict{normalize($_)} }, $_
    for @words;

  abd => ["bad", "dab"],
  aepr => ["pear", "reap", "rape"]
  ...