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;

##</code><code>##

XXX
FFF
ZZZ
AAA
BBB
QQQ
LLL
JKK
III
CCC
DDD
DCD

##</code><code>##

XXX BBB AAA CCC DDD EEE
FFF NNN JKK III LLL QQQ

##</code><code>##

FFF
ZZZ
AAA
BBB
QQQ
LLL
JKK
III
CCC
DDD
DCD
FFF NNN JKK III LLL QQQ