Select Code to Download

tie my @array, 'Tie::File', $file_name
   or die("Unable to open file \"$file_name\": $!\n");

print($array[$_])
   for 6, 1003, 2965;

my %lines_of_interest = map { $_ => 1 } 6, 1003, 2965;

...
      last unless --$num_lines;
   }   
}