use warnings;
use strict;

my @array = qw/ abc def ghi /;

for my $x (@array) {
	print "$x\n";
}
for my $x (reverse @array) {
	print "$x\n";
}

while (@array) {
	my $x = shift @array;
	print "$x\n";
}

@array = qw/ abc def ghi /;
while (@array) {
	my $x = pop @array;
	print "$x\n";
}