my @lines;
foreach my $file(@files) {
    open(IN, "< $file") or die "Can't open $file: $!";
    push @lines, <IN>;
    close IN;
}
# Now do whatever you want with @lines

##</code><code>##

    while(my $line = <IN>) {
        #Do whatever processing you want with $line
    }