#!/usr/bin/perl
use strict;
use Tie::File;
my @array;
my $filename = 'foo.dat';
tie @array, 'Tie::File', $filename or die "Error: Cannot open $filename\n";
push @array, "Hello, World!\n";