Select Code to Download

my %dict = map {split /\s/,$_,2} <$d>;
close $d;
...
    print "$_ is not in the dictionary\n";
  }
}

my %dict = map split( ' ', $_, 2 ), <$d>;
close $d;
...
    print "$word is not in the dictionary\n";
  }
}