use strict;
use warnings;
my @lines;
foreach my $file ( reverse @ARGV ) {
    open my $fh, '<', $file or die "Bleah: $!";
    my( @slurp ) = <$fh>;
    push @lines, reverse @slurp;
    close $fh;
}

print foreach @lines;

##</code><code>##

use strict;
use warnings;

my @lines;
@ARGV = reverse @ARGV;
foreach ( @ARGV ) {
    my( @slurp ) = <>;
    push @lines, reverse @slurp;
}

print foreach @lines;