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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

sub new_glob { return local *X }

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