my @txt = glob("$dir/*.txt");