Using Tie::File:

#! perl
use strict;
use warnings;
use Data::Dump;
use Tie::File;

my    @array = ('x', 'y', 'z');
dd    @array;
tie   @array, 'Tie::File', 'data.txt';
dd    @array;
untie @array;
dd    @array;
[download]

With file data.txt as follows:

AAA
BBBBBB
C
DDDD
[download]

Output:

14:32 >perl 378_SoPW.pl
("x", "y", "z")
("AAA", "BBBBBB", "C", "DDDD")
("x", "y", "z")

14:32 >
[download]

So, @array neither retains the values of the file, nor does it fall empty. Rather, it resumes the values it had before the tie.

Hope that helps,

got it ... thanx

So there's a harder way?
I need to try that !

So there's a harder way?
I need to try that !

So would doing the experiment that Athanasius performed and reported have been harder than asking the OPed question? More typing would certainly have been involved, but the potential return for the extra effort might have been very worthwhile, as an answer gained by your own efforts might have been more enlightening, and the answer to one question might have led to other questions and to a yet deeper understanding of mechanisms, possibilities, difficulties. The path of direct experience would have been more work, but perhaps much more profitable; it's possible the original question was the harder road after all.