use strict;
use warnings;

my @arry = (9,0,0,5,3,0,0,0,2,0,1,0);
print "@arry \n";
@arry = grep {$_} @arry;
print "@arry \n";

##</code><code>##

9 0 0 5 3 0 0 0 2 0 1 0 
9 5 3 2 1