LABEL1: foreach my $a (@b) {
    if (...) { next LABEL1; }
    do_something();
    if (...) { next LABEL1; }
    do_something_else();
    if (...) { next LABEL1; }
    do_something_again();
}

##</code><code>##

LABEL1:
perform_cleanup();