use warnings;
use strict;

print "Enter some lines, then press Ctrl-D:\n"; # or maybe Ctrl-Z
my @lines = <STDIN>;
my @reverse_lines = reverse (@lines);
print @reverse_lines;

__END__

Enter some lines, then press Ctrl-D:
1 2 3   # entered by the user
1 2 3   # printed back