Select Code to Download

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

0.999999999999999
1

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

1+2i
2+2i