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