open( FILE, "<$file_to_reverse" )
  or die( "Can't open file file_to_reverse: $!" );

@lines = reverse <FILE>;
foreach $line (@lines) {
  # do something with $line
}