for(my $x = 0; $x <= 0.1; $x += 0.001){
     print "$x\n";
}

##</code><code>##

0
0.001
0.002
......
0.07
0.071
0.07200000000000001 (????)
0.07300000000000001 (????)
.....