open my $bigFH, q{<}, q{myBigFile} or die $!;
seek $bigFH, -10000, 2;
read $bigFH, my $last10k, 10000;
open my $last10kFH, q{<}, \ $last10k or die $!;
my @lastLines = <$last10kFH>;