#!/usr/bin/perl -w
use strict;

#my $cnt;
my $step = 100;

for (1..10000) {
    #print "$_..." unless (++$cnt % $step);
    print "$_..." unless ($_ % $step);
}

print "\n";