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