#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