my %dict;
foreach my $word (@wordlist) {  # or read from file ;-)
  $dict{$word} = 1;
}
if (exists $dict{'someWord'}) {...}