use List::MoreUtils qw/pairwise/;
@a = (1..5);
@b = (6..8);
@x = pairwise { $a * $b } @a, @b;
print join ", ", @x;
__END__
6, 14, 24, 0, 0