use strict; use warnings; use Lingua::EN::StopWords qw/%StopWords/; my @words = qw/ .......whatever words you're testing...... /; @words = grep { !StopWords{$_} } @words;