#!/usr/bin/perl
use warnings;
use strict;

use Tie::File;
my @array;
tie(@array, 'Tie::File', "file.txt") or die;
print "$array[13]\n";