use warnings;

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

__END__

Enter some lines, then press Ctrl-D:
1
2
3
3
2
1