for(my $x = 0; $x <= 100; ++$x){
     print $x/1000,"\n";
}