my %h1 = qw{a 1 b 2};
my $glob = *h2;         # Create glob
*$glob = \%h1;          # Initialise glob
print %$glob, "\n";     # Access hash referenced by glob