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