my $glob = Symbol::gensym;

##</code><code>##

*$glob{HASH} = { a => 1 };