open (my $fh, ">", $words_file);
my @words;
while (<>) {
    push(@words, $_);
}