for (reverse 0 .. $#a) {
    splice @a, $_, 1 if condition($a[$_]);
}