splice @ary, $_, 1
    for
    grep ! $ary[$_] % 2,
    0 .. $#ary;