@a= (1/3, 3); 
$prod1= eval join "*", @a; 
$prod2= 1; $prod2*= $_ for @a; 
print $prod1,$/, $prod2,$/;

##</code><code>##

0.999999999999999
1

##</code><code>##

use Math::Complex; @a= (1+i, 2); $prod1= eval join "*", @a; $prod2= 1; $prod2*= $_ for @a; print $prod1,$/, $prod2,$/;

##</code><code>##

1+2i
2+2i