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