Select Code to Download

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

print @Array1;
Print @Array2;

XXX
FFF
...
CCC
DDD
DCD

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

FFF
ZZZ
...
DDD
DCD
FFF NNN JKK III LLL QQQ