use strict; use warnings; my @array=(1,2,3,4,5,6,7,8,9); my $end=($#array+1); my $index = 0; while($index < $end){ my $last=pop(@array); print "$last\n"; $index++; }