use strict;

my @j=qw/ a b c d e f g /;

while ( my $i=pop @j){
        printf "%s\n",$i;
}