use warnings;
use strict;

my @list = ...

my @complete;

for my $file (@list)
{
    open(INPUT, "<", $file) or die $!;
    push(@complete, $_) while <INPUT>;
    close(INPUT);
}