use PDL::Complex; my $z = random(2,10); my $p = Cr2p($z); print $p;