open($handle, 'test.dat');
while (<$handle>) {
    chomp; last if !$_;
}
chomp(@data = <$handle>);
close($handle);

for (reverse @data) {
    print $_, "\n";
}

##</code><code>##

open($handle, 'test.dat');
while (<$handle>) {
    chomp; last if !$_;
}
while (<$handle>) {
    chomp; push @data, $_;
}
close($handle);
for ($i = $#data; $i > -1; $i--) {
    print $data[$i], "\n";
}