$index < $#array + 1

##</code><code>##

my @array = (1 .. 9);
while (@array) {
    my $last = pop @array;
    print "$last\n";
}

##</code><code>##

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

my @array = (1 .. 9);
my $index = $#array;
while ($index >= 0) {
    print $array[$index], "\n";
    $index--;
}

my @array = (1 .. 9);
for (my $index = $#array; $index >=0; $index--) {
    print $array[$index], "\n";
}