Select Code to Download

printf("%.­5f\n", sprintf("%­.6f1", $_))

printf( "%.5f\n", sprintf("%.12e",$_) )
#                            ^^^

 % perl -le "print 0.00003499999999999999"
3.5e-05

my %c;
for my $i (  '00' .. '99'  ) {
...
0.985 0.98 -
0.995 0.99 -
50 rounded down, 50 rounded up.