tie *BW, File::ReadBackwards, 'file' or die "can't read file $!";
while( <BW> )
 { # do your stuff here ;

 }