#use strict;
#use warnings;
use 5.010;

%h = qw{a 1 b 2};
@h = (100, 200, 300);
$h = 10;


say $h{a};
say $h[0];
say $h;

my $href = *h{HASH};
my %hash = %{$href};
say $hash{a};

--output:--
1
100
10
1


##</code><code>##

my %h1 = qw{a 1 b 2};
*h2 = \%h1;

##</code><code>##

my $href = \%h1;


##</code><code>##

say *h2;

--output:--
main::h2


##</code><code>##

say $main::h2{a};

--output:--
1