while () { ... }

##</code><code>##

while (1) { ... }

##</code><code>##

$ perl -MO=Deparse -e 'while () {print "tick!\n"}'
while (1) {
    print "tick!\n";
}

##</code><code>##

$ perl561 -MO=Deparse -e 'while () {print "tick!\n"}'
for (;;) {
    print "tick!\n";
}