D:\Perl56\bin>perl -MO=Deparse -we "$x=[];for($i=0;$i<=$#x;$i++){}"
$x = [];
$i = 0;
while ($i <= $#x) {
    ();
}
continue {
    ++$i
}
-e syntax OK

D:\>perl -MO=Deparse -we "$x=[];for($i=0;$i<=$#x;$i++){}"
$x = [];
for ($i = 0; $i <= $#x; ++$i) {
    ();
}
-e syntax OK