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