for (my $i = 0; $i < $n; ++$i) {
   ...
}

##</code><code>##

my $i = 0;
while ($i < $n) {
   ...
} continue {
   ++$i
}