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