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

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

##</code><code>##

my @array = $io->read_array(q{smallish_file});

##</code><code>##

$io->write_array(q{tweaked_file}, \@array);