Select Code to Download

my $all_words_regex = join '|', keys %lijst;
for my $file (@listfiles) {
...
       print $out $_;
   }
}

use strict;
use warnings;