$ perl -MO=Deparse -e 'for ($x = 0; $x < 10; $x++) {}'
$x = 0;
while ($x < 10) {
    ();
}
continue {
    ++$x
}