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