use IO::File;

my @files;
map {push @files, IO::File->new("$_")}  qw/foo.txt bar.txt/;

for my $file (@files) {
    my $line = <$file>;
    print "Das ist $line.\n";
}