unless ( grep { / $word / } @stopwords ) {
  push @lessWords, $word;
}