Select Code to Download

my $i = $#arry;
while ( $i >= 0 )
...
     {splice @arry, $i,1;}
   $i-- ;
}

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