use warnings;
use strict;

for my $filename (glob '*.txt') {
    open my $fh, '<', $filename or die "can not open $filename: $!\n";
    while (<$fh>) {
        # your code
    }
    close $fh;
}