if !(grep {$word} @wordlist) {

##</code><code>##

  if (!grep {$word} @wordlist) {