# Create an element in the hash for each stop word.
my %stopwords;
open( LIST, "stopwords.txt" ) or die "$!";
while (<LIST>) {
   chomp;
   undef $stopwords{$_};
}