you were right i was comparing the whole paragrapgh with a word and that why $word and $stopword were never equal.$word has a full paragraph. now i have fixed that (i hope). but its still not working :(

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";
[download]

plz help

You're still pushing $word onto @lessWords regardless of the match. Simple fix:

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

using a hash for @stopwords would make this code simpler and faster, though. There are some examples in this thread somewhere.

update: the above code is still buggy. See below for a much simpler version that should work.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

my %stopwords = map { $_ => undef } @stopwords;
$/=" ";
while(<>){
  chomp;
  push @lessWords, $_ unless exists $stopwords{$_};
}
[download]

my %stopwords = map { $_ => undef } @stopwords;
$/=" ";
@lessWords = grep( exists $stopwords{$_},  map {chomp; $_} <> )
[download]

Not the most efficient method, but anyway, assuming that both your files contain one word per line, the mistake is here:

WORD:
foreach $word (@data)
{
   STOP:
   foreach $stop (@stopwords)
   {
      next WORD if $word eq $stop; # <---
   }

   push(@lessWords, $word);
}
[download]

Whenever a stopword matches, you should exite the outer loop.

Consider using a hash instead.

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

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

My suspicion is that $word and $stop are never equal to each other, so the line

next if $word eq $stop;
[download]

is never true.

You are loading @data in paragraph mode (may contain newlines) and @stopwords in line mode with chomp (will not contain newlines). Could your problen lie there? Without some test data, it is hard to say exactly what the problem is.