use Tie::File;
use Fcntl 'O_RDONLY';
tie @array, 'Tie::File', $filename, mode => O_RDONLY
    or die $!;