my $c = 0;
BLOCK:
{
print "Hi there!\n";
redo BLOCK if $c++ < 10;
}