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