use warnings;
use strict;
my @array= ( 1 .. 9 );

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

# ...or...
my @array= ( 1 .. 9 );
print "$_\n" while $_ = pop @array;