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