Select Code to Download

WORD:
foreach $word (@data)
...

   push(@lessWords, $word);
}

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

...
    next if exists $stops{$word};
    push(@lessWords, $word);
}