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

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