Well, you could always do what we had to do before we had grep and hashes:

my $found;
for my $w (@word_list) {
  if ($w eq $corpus_word) {
    $found = 1;
  }
}
# $found == 1 if $corpus_word was found in @word_list
[download]

Of course, there might be more efficient ways to do this.