use Tie::File;

my $file = '/path/to/file';
my @interesting_lines;
{
  tie my @array,'Tie::File', $file or die $!;
  @interesting_lines = @array[999,$#array];
  untie @array;
}