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";

##</code><code>##

12 6 12 35 20 700