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

print "@lessWords\n";