Select Code to Download

use List::MoreUtils qw( pairwise );

...

my @mults = pairwise { $a * $b } @array1, @array2;
print "@mults\n";