use strict; 
use warnings; 

use Benchmark;
use Tie::File; 
use File::ReadBackwards; 

my $file = "bench.txt"; #60 MB

timethese
(
    5, 
    {
        'bw'   => sub
        {
            my $bw = File::ReadBackwards->new( $file ) or die "can't read '$_[0]' $!" ; 

            my @lines; 

            $lines[0] = $bw->readline; 

            if ( $lines[0] =~ /;738409000;/ ) 
            { 
                for (1..9) 
                { 
                    $lines[$_] = $bw->readline; 
                }
            } 

            @lines = reverse @lines;

            return \@lines;
        },


        'tied' => sub 
        {
            my @array; 
            my @lines;

            tie @array, 'Tie::File', $file or die $!; 
            if ( $array[-1] =~ /;738409000;/ ) 
            {
                for (1..10)
                {
                    $lines[$_-1] = $array[(11-$_)*-1] . "\n";
                }
            }

            return \@lines;
        }

    }
);