foreach (@file) { my $test = pop (@file); print $test; }

##</code><code>##

while (@file) { my $test = pop (@file); print $test; }