my $count = 0; while( 1 ) { print "\t$count\n" unless ++$count % 100_000; }