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