sub complicated_flow {
    ... 

    my ($res1,$res2, ...) = routine()  
        or  return;                       # ERROR  skips rest 

    ...
}

sub routine {
    …
    return if (ERROR);
    ...
    return 1,2,3;
}