use strict;
use warnings;

my @array=(1,2,3,4,5,6,7,8,9);
my $end=($#array+1);
my $index = 0;
while($index < $end){
    my $last=pop(@array);
    print "$last\n";
    $index++;
}


##</code><code>##


my @array = (1..9);
print +(pop @array),"\n" while (@array);

##</code><code>##

my @array = (1..9);
print "array[$_]\n" for (reverse (0..$#array));