tie *FILE, File::ReadBackwards 'input_file';
while (<FILE>) {
   # line-by-line starting from the end
}