Help for this page
use File::ReadBackwards; tie *BW, 'File::ReadBackwards', 'log_file' or ... while( <BW> ) { print ; }
use Tie::File; tie my @array, 'Tie::File', 'log_file' or ... $_ = -$_; print $array[$_]; }