my $i = 0;
FOO: {
    print "$i\n";
    redo FOO unless ++$i > 4;
}