1 while (EXPR): will also avoid the slight over head of entering and exiting the lexical context created by the BLOCK in while (EXPR) {} Perl might be smart enough to optimise the out the empty block though.