Naked blocks can be loops with no need for goto or labels:

my $i = 0;
{
    redo if $i++ < 10;
}
[download]

But as worded, the question is difficult to answer; it's hard to know what the person asking is really after and what he or she has or hasn't considered.