Another alternative:

#!/usr/bin/perl -w
use strict;
use IO::All;
my @reversed_io = io("file.txt")->backwards->getlines;
my @lines;
push @lines, $reversed_io[$_] for ( 0 .. 100 );
[download]