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