use List::MoreUtils qw( pairwise );

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

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