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