for( 1..3 ) {
    foo();
REDO:
    foo();
    my $x;
    sub foo { print 'f', ++$x, $/; }
    print ++$x, $/;
    goto REDO   if  2 == $_++;
}
__END__
f1
f2
3
f4
f5
1
f6
2
f7
f8
1