That's completely untested, right? Secondly, even if you did fix the most obvious mistakes, it does not do what you want it to (reverse each line vs. print file reversed).
Thirdly, if one was to use a load-the-whole-file-into-an-array approach it most likely would be very slow for large files.
--
Andreas
Comment on Re^2: How to reverse a huge file in Perl?