I'm going to guess it's something like:

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);
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.