#!/usr/bin/perl -w
use strict;

@ARGV = reverse @ARGV;
while (<>) {
 chomp;
 print "\n@_\n";
}

##</code><code>##

#!/usr/bin/perl -w
my $in;

@ARGV = ( reverse @ARGV);
foreach my $x (@ARGV){
 @in = <$x>;
 @in = reverse @in;
}
while (@in) {
  chomp;
  print "\n$_\n";
}