Select Code to Download

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

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

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

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