Select Code to Download

my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);

my @array1 = (3,4,6,5,8,2,2,4);
my @array2 = (5,1);

@array1,@array2

(3,4,6,5,8,2,2,4,5,1)

c:\>perl -le "use List::MoreUtils qw/pairwise/; @a=(1..5);@b=(11..15);
+ print for pairwise {$a+$b} @a, @b"
12
...
5
11
12