retrieve returns a reference to your data _not_ the data.

my $aref = retrieve("file") or die "Cannot retrieve\n";
@array2 =  @$aref;
print $#array2."\n";
[download]