while(@array) {
    my $element = $array[0];
    # do tons of stuff...
    if($result eq 'foo') {
        shift @array;
    }
}