Help for this page

Select Code to Download

Select or download this

my @nonzero;

...
for my $p9 ( @nonzero ) {
    print $p9;
}