use Lingua::StopWords qw( getStopWords );
my $stopwords = getStopWords('en');
   
my @words = qw( i am the walrus goo goo g'joob );
    
# prints "walrus goo goo g'joob"
print join ' ', grep { !$stopwords->{$_} } @words;