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]