in reply to how to read a file in backwards?

my @lines = <FILE>;
while (my $line = pop @lines) {
    # do something
}

[download]

In Section Seekers of Perl Wisdom