my $file1 = '/tmp/file1.txt';
my @Array1;

open FILE, $file1 or die $!;

while(<FILE>)
{
        @Array1 = <FILE>;
}

my $file2 = '/tmp/file2.txt';
my @Array2;

open FILE, $file2 or die$!;
while(<FILE>)
{
        @Array2 = <FILE>;
}

print @Array1;
Print @Array2;