So each element of the array is one word? Lingua::EN::StopWords

use strict;
use warnings;
use Lingua::EN::StopWords qw/%StopWords/;
my @words = qw/ .......whatever words you're testing...... /;

@words = grep { !StopWords{$_} } @words;
[download]

All credit to the module's POD. There's also Lingua::StopWords::EN, if the first module doesn't work out for you.

Update: But Corion is probably right. Ask the professor. ;)