assuming for argument's sake that it is 100% certain that @one and @two contain an identical number of entries and that all of them are numerical...

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

simple, readable, and it should do the trick :-)