#!/usr/bin/perl
use Tie::File;
my $filename = 'foo.dat';

tie @array, 'Tie::File', $filename or die "Cannot open $filename\n";

@array[5] = "Hello, World!\n";