You store a array reference, so you must retrieve an array reference too :

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

HTH