Select Code to Download

    my @words;
    my $filename="terms.txt";
...
        close $FH;
    } 
    my $wordsRX = join "|", map quotemeta, @commonwords;

#I read with the script above my @terms and then add new words to it, 
+eliminate duplicates, if any, and write it back.
    my @wordsfiltered = uniq_array(@terms);
...
        print $fh $_ . "\n";
    }
    close $fh;

store(\@wordsfiltered, "terms.array");
my @words= @{ retrieve("terms.array") };