#!/usr/bin/env perl -l

use strict;
use warnings;

use Storable;

my $file = './data.txt';
my @original_array = ('Snow', 'White', '1313 Mockingbird Lane');

store \@original_array => $file;

my @retrieved_array = @{retrieve($file)};

print for @retrieved_array;

##</code><code>##

Snow
White
1313 Mockingbird Lane