No-ops
       Perl doesn't officially have a no-op operator, but the bare constants 0
       and 1 are special-cased to not produce a warning in a void context, so
       you can for example safely do

           1 while foo();