How about this?

open my $fh, '<', 'Somefile.txt';
my @file = <$fh>;
close $fh;

foreach my $line (reverse @file) {
  # Starts from the bottom of the list
  # instead of the top
}
[download]