my $cnt = 0;

for (0 .. 99999)
{
   $cnt++;

   if ($cnt%100) { print "$cnt\n"; }
}

##</code><code>##

...
32287
32288
32289
32291
...