in reply to poll ideas quest 2012
My favorite non-infinite-loop is:
See also the old My favorite looping mechanism in Perl is:.