use Math::Complex;

my $j=sqrt(-1)/100;

foreach my $close_to_zero (-1e-3-$j*1e-3,
                           -1e-4-$j*1e-4,
                           -1e-5-$j*1e-5,
                           -1e-6-$j*1e-6,
                           -1e-7-$j*1e-7,
                           -1e-8-$j*1e-8,
                           -1e-9-$j*1e-9,
                           -1e-10-$j*1e-10,
                           -1e-11-$j*1e-11,
                           -1e-12-$j*1e-12,
                           -1e-13-$j*1e-13,
                          ){
  print $close_to_zero**$close_to_zero,"\n";
}