Select Code to Download

my $ifs = '|'; # or whatever

...
open FH, "<$file2path" or die $1;
my @file2data = map {[split $ifs, $_]} <FH>;
close(FH) or die $!;

my $lastrec = scalar( @{$file1data[0]}) - 1;

...
        } 0..$lastrec;
    } @file2data ];
} @file1data;