Select Code to Download

$index < $#array + 1

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

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