WORD:
foreach $word (@data) { 
   foreach my $stopword (@stopwords) { 
      next WORD if $word eq $stopword;
   }

   push(@lessWords, $word);
}

print "@lessWords\n";