foreach my $foo (@foos)
{
    # Do common processing
    next if is_done_processing(foo);

    # Do more processing
    next if is_done_now?(foo);

    # Do still more processing
    next if can_we_go_now??(foo);

    # Do cruel and unusual processing
    last if is_dead(foo) or is_suing_programmer(foo);
}