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

##</code><code>##

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