for (my $i10=0; $i10<=100; $i10++) {
   my $i = $i10 / 10;
   print "$i, \n";
}

##</code><code>##

for (0..100) {
   my $i = $_ / 10;
   print "$i, \n";
}