my (@arr,@a);
foreach $word (@data)
{
        push  @arr,split(/ /,$word);
}
WORD:
        foreach $a (@arr)
        {
            foreach $stop (@stopwords)
            {
              next WORD if $a eq $stop;
            }

push(@lessWords, $a);
}
print "@lessWords\n";