open my $fh, q{<}, q{stop_words.txt}
  or die qq{cant open stop: $!\n};

my %stop = map{chomp; $_ => undef} <$fh>;