Select Code to Download

use constant EARL => 'MEL';

sub EARL () { 'MEL' }

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