use Tie::File;

tie my @file, 'Tie::File', $filename
  or die "Couldn't tie '$filename': $!";

my $line2 = $file[9];