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