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