#!/usr/bin/perl
use warnings;
use strict;

my (@data,$word,@lessWords,%stopwords,$stop);

open( LIST, "stopwords.txt" ) or die "$!";
my @stopwords = <LIST>;  
close LIST;
chomp @stopwords;

$/="";  
while(<>)
{
	push @data, $_;

}

foreach $word (@data) 
{ 
   foreach $stop (@stopwords) 
   { 
      next if $word eq $stop;
   }

   push(@lessWords, $word);
}

print "@lessWords\n";