foreach my $thing (@array) {
        process($thing);
        add_to_processed($thing);
}

sub process {
        my $thing = shift;
        next if boring($thing);
        ....
}

sub add_to_processed {
        my $thing = shift;
        last if too_many($thing);
        ....
}