#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @data = (0,1,2,3 );
print "BEFORE: ",join(',',@data),"\n";
my $saved_data = Dumper(\@data);
# ...here you would write saved data to textfile
my $VAR1; eval $saved_data;
my @data2 = @{$VAR1};
print "AFTER: ",join(',',@data2),"\n";

##</code><code>##

BEFORE: 0,1,2,3
AFTER: 0,1,2,3