use Storable;
use strict;

my @array1 = ('a','b','c','d');
my @array2 = ();

print $#array1."\n";
store(\@array1,"file") or die "Cannot store\n";
@array2 = retrieve("file") or die "Cannot retrieve\n";
print $#array2."\n";