Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
print "@arry \n";
@arry = grep {$_} @arry;
print "@arry \n";

Select or download this
```
9 0 0 5 3 0 0 0 2 0 1 0 
9 5 3 2 1
```