for (reverse 0 .. $#moo) {
    splice @moo, $_, 1 if $moo[$_] % 2;
}