Help for this page
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));