return \%dat;
--
%dat = %{retrieve->gather()}; print $dat{'user'};
$ref = retrieve->gather(); print $ref->{'user'};