#!/usr/bin/perl                                                                     
use Tie::File;                                                                      
                                                                                    
$infile = '/path/to/myfile.xml';
tie @array, 'Tie::File', $infile or die $!;                                         
print $array[64366480];