Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
my @array= ( 1 .. 9 );
...
# ...or...
my @array= ( 1 .. 9 );
print "$_\n" while $_ = pop @array;