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
[download]