foreach $word (@data) 
{ 
	if ($stopwords !~ / $word /) 
	{
		 push @lessWords, $word; 
	} 


}
print "@lessWords\n";