unless(grep{ $_ eq $word } @wordlist ) {
       ....
}