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

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