tie @array, 'Tie::File', $fname or die 'Couldn\'t open file: '.$!;
$array[1] = 'blah';        # line 1 ine the file is now 'blah'
print $array[3];           # display line 3 of the file

# do something
untie @array;            # all finished