for(my $i = 0; $i < 1_000_000; $i++) { if($i % 1000 == 0) { debug("Foo $i"); } # do some stuff }