Not to interrupt our regularly scheduled disharmonious bisecting of the rabbit, but perhaps while(1) gets optimized to while():

 % perl -MO=Deparse -e"while() { print }"
while (1) {
    print $_;
}
-e syntax OK
 % diff <(perl -MO=Concise -e'while($x){print}') \
        <(perl -MO=Concise -e'for(;$x;){print}')
 %
[download]

Carry on. (Like I could stop either of you.)