Select Code to Download

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

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