use constant EARL => 'MEL';

##</code><code>##

sub EARL () { 'MEL' }

##</code><code>##

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