while ($eachfile = <*.txt>)
    { ... }

##</code><code>##

@files = <*.txt>;
foreach (@files)
    { ... }

##</code><code>##

opendir(DIR, ...);
while (defined ($eachfile = readdir(DIR) ))
    { next if not /\.txt$/; ... }