my @acceptable = grep { check $array[$_] } ($[..$#array);