Based on that perlsyn quote, another (inefficient) solution would be to convert the array into a list:

foreach (map $_, @file) { my $test = pop (@file); print $test;  }
[download]