#! 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;

##</code><code>##

AAA
BBBBBB
C
DDDD

##</code><code>##

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

14:32 >