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