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