note
AnomalousMonk
<blockquote><i>
... the naked-block isn't a loop ... without a label and goto[.]
</I></BLOCKQUOTE>
<p>
Or at least a (possibly conditional) [doc://redo] (see also [doc://perlsyn#Loop-Control]):
</P>
<c>
perl -wMstrict -le
"my $i = 1; { print qq{in naked loop $i}; redo if $i++ < 3; }
"
in naked loop 1
in naked loop 2
in naked loop 3
</C>
950889
950892