for (my $i = 1; $i < 10; $i++) {
    ...
}

##</code><code>##

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