Select Code to Download

for (my $i = 0; $i < 100; $i += 0.1) {
   say $i;
}

...
99.7999999999986
99.8999999999986
99.9999999999986

for (my $_ = 0*10; $_ < 100*10; ++$_) {
   my $i = $_/10;
   say $i;
}

...
99.7
99.8
99.9

for (0*10..100*10) {
   my $i = $_/10;
   say $i;
}

map $_/10, 0*10..100*10