$arry[ $_] or splice @arry, $_, 1 for reverse 0 .. $#arry;