for my $a (@b) {
    if (...) { next }
    do_something();
    if (...) { next }
    do_something();
    if (...) { next }
    do_something();
} continue {
    perform_cleanup();
}