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

my @mults = map { $array1[$_] * $array2[$_] } 0..$#array1;
print "@mults\n";