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";
}