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