for (;;) { ++$_; last if $_ == 1000; } for (;;) { ++$_; last if $_ == 1000; } for (;;) { ++$_; last if $_ == 1000; } test.pl syntax OK