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