in reply to Re: while ()in thread while ()
I now think that while () deparses as for because while (1) is "optimised" (whatever that means) into for(;;) in perl 5.6.1.
$ perl561 -MO=Deparse -e 'while(1) {1}' for (;;) { '???'; } [download]