#!/usr/bin/perl use warnings; use strict; use Tie::File; my @array; tie(@array, 'Tie::File', "file.txt") or die; print "$array[13]\n";