@array2 = @{retrieve("file")} ...

##</code><code>##

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