while( defined(my $filename = glob("*.txt"))){
open(WORDLIST,$filename) || die "can't open wordlist: $!";}
init_words();

##</code><code>##

open(WORDLIST, *.txt>);

##</code><code>##

line1
line2

##</code><code>##

line3
line4

##</code><code>##

file1.txt    line1
file2.txt    line4