use Set::Scalar;
$stopwords = Set::Scalar->new;
$stopwords->insert( qw(a i at be do to or is not no the 
               that they then these them who where 
               why can find on an of and it by));
@word = split /\s+/, "Oh say can you see by the dawn's early light";