in reply to can't remove all zeroes from an array

Try This
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";