@product;
$i = 0;
if ($#Arr1 == $#Arr2) {
  foreach(@Arr1) {
    $product = $_ * $Arr2[$i];
    ++$i;
  }
}
else {
  print "Do you really want to multiply unequal length of arrays?\n";
}
[download]

Originally posted as a Categorized Answer.