Select Code to Download

use strict;
use warnings;
...
    $index++;
}

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

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