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