my $b = {EARL.(HARRIS) => 55 };

##</code><code>##

my $b = {EARL.HARRIS, 55 };