while ( $i <= $#arry)
 {
 if ($arry[$i] == 0)
   {splice @arry, $i,1;}
 else
   {$i++;}
}