while ( $i <= $#arry &&  $arry[$i] == 0 )