use experimental qw( refaliasing declared_refs );

my \%foo = retrieve( ... );

##</code><code>##

my \%foo = retrieve( ... );