my $i = 0;
while($one[$i])
  {
  $multi[$i] = $one[$i] * $two[$i];
  $i += 1;
  }