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