for my $f (reverse @file) {
  print $f;
}

##</code><code>##

while (@file) {
  print pop @file;
}