Help for this page

Select Code to Download

Select or download this

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