If you've got to do nothing in Perl, why not do it the stylish way? Pick one of these loopy ideas:

  1. 1 while 1 (or 0 until 0)
  2. {redo}
  3. Of course for(;;){} also works, but is boring.