while ( defined(my $txt = glob("$dir/*.txt")) ) {
}