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

##</code><code>##

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