$#array = $[ - 1 + @array;

##</code><code>##

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