OUTER: for (1) {
    for my $job (@jobs) {
        my ($status, $task) = $job->{job}->get_task();
        if ($status eq 'wait') {
            if ($self->{one_by_one}) {
                return 'wait';
            } else {
                return 'wait' unless --$maxcnt;
            }
        }
        elsif ($status eq 'done') {
            ($s, $t) = do_finish($job); # do_finish deletes from @jobs
            redo OUTER if $s eq 'ok';
            return ($s,$t); # (else)
        } else {
            my $newtask = Package->new(...);
            return ($status, $newtask);
        }
    }
}
return('wait')

##</code><code>##

NEXT:
my $job = shift @jobs;
my ($status, $task) = $job->{job}->get_task;
return 'wait' if $status eq 'wait'; # All 'wait' roads went there.
if ($status eq 'done') {
    my ($done_s, $done_t) = $self->do_finish($job);
    goto NEXT if $done_s eq 'ok';
    return ($done_s, $done_t);
}
my $newtask = Package->new(...);
return ($status, $newtask);