Hello,

use List::MoreUtils Module.

use List::MoreUtils qw(:all);

@one=('2', '3', '4', '5', '10', '100');
@two=('6', '2', '3', '7', '2', '7');


@multi=pairwise{$a*=$b} @one,@two;
print "\n@multi\n";
[download]

Output

12 6 12 35 20 700
[download]

Thanks,

Gopalr