for my $i (reverse 0 .. $#array) {
    if (condition($array[$i])) {
        splice @array, $i, 1;
    }
}