Take a look at Tie::File. It comes as standard with some perl distributions.
#! perl -lsw
use strict;
use Tie::File;
tie my @array, 'Tie::File', 'array.file';
push @array, @ARGV;
print for @array;
__END__
P:\test>333115 the quick brown fox
the
quick
brown
fox
P:\test>333115 the sixth sick shiek's sixth sheep was sick
the
quick
brown
fox
the
sixth
sick
shiek's
sixth
sheep
was
sick
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail