my $cnt = 0;

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

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