@array = @array[grep {!should_delete($_)} 0..$#array];