Help for this page
use constant EARL => 'MEL';
sub EARL () { 'MEL' }
my $b = { EARL() . HARRIS() => 55 };