my @arry = (9,0,0,5,3,0,0,0,2,0,1,0);
print "@arry \n";
@new_ary = grep{/[^0]/} @arry;
print "@new_ary \n";