my %stops = map {$_,undef} @stopwords;

for my $word (@data)
{
    next if exists $stops{$word};
    push(@lessWords, $word);
}