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