use Tie::File;

my $datei = 'array.dat';

# @array mit Tie::File an $datei binden
tie my @array, 'Tie::File', $datei or die $!;

# jetzt etwas mit @array anstellen ... und wenn's erledigt ist:

untie @array; # das war's.