my @keep = ();
while (@array) {
    my $element = shift @array;
    # do stuff
    push @keep, $element unless ( $result eq 'foo' );
}