use strict;
use warnings;
use 5.010;

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

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

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

--output:--
1
100
10
No type glob foo for you!*