for (my $n=1;$n<=10;$n++) { ... }
# essentially becomes
{
  my $n=1;
  while ($n<=10) {
    ...
  } continue {
    $n++;
  }
}