'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);
},