Re^2: How many loops are there in Perl?

... the naked-block isn't a loop ... without a label and goto[.]

Or at least a (possibly conditional) redo (see also Loop Control):

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
[download]