use Storable

use Storable;
my @data1 = qw /one own/;
my @data2 = qw /two, too, to/;

push @data1, \@data2;
push @data2, \@data1;

store [\@data1, \@data2], 'some_file';
my $result = retrieve 'some_file';
use Data::Dumper;
$Data::Dumper::Purity = 1;
print Dumper(@$result);

VAR1 = [
          'one',
          'own',
          [
            'two,',
            'too,',
            'to',
            []
          ]
        ];
$VAR1->[2][3] = $VAR1;
$VAR2 = $VAR1->[2];