To depend less on how constants are implemented, just put the argument that is being stringified (before being constant-evaluated) in parentheses:

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

And of course, using a comma instead of the stringification operator also yields the desired result.

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