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