'OP\'s' => sub {
     my $lineno = 100;
     open( FILE, "$f" ) or die "Can't find $f\n";
     my @lines = <FILE>;
     my $num = @lines;
     for ( ; $lineno > 0 ; $lineno-- ) {
         my @tail = @lines[ $num - $lineno ];
     }
     close(FILE);
},

##</code><code>##

'`tail -100`' => sub {
    my @lines = split( /\n/, `tail -100 $f` );
},

##</code><code>##

    my @lines = `tail -100 $f`;