Select Code to Download

open($handle, 'test.dat');
while (<$handle>) {
...
for (reverse @data) {
    print $_, "\n";
}

open($handle, 'test.dat');
while (<$handle>) {
...
for ($i = $#data; $i > -1; $i--) {
    print $data[$i], "\n";
}