$ perl -MO=Deparse -le 'for ( my $i = 0; $i < 10; $i++ ) { print 1 }'
-e syntax OK

my $i = 0;
while ($i < 10) {
    print 1
}
continue {
    ++$i
}