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

##</code><code>##

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

##</code><code>##

@array1,@array2

##</code><code>##

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

##</code><code>##

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

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