D:\Development>perl -MO=Deparse  -e "for ($x = 0; $x < 10; $x++) {}"
for ($x = 0; $x < 10; ++$x) {
    ();
}
-e syntax OK

D:\Development>perl -MO=Deparse,-x3  -e "for ($x = 0; $x < 10; $x++) {}"
$x = 0;
while ($x < 10) {
    ();
}
continue {
    ++$x
}
-e syntax OK