my %k;
$k{'A'} = 'Foo';
$k{'B'} = 'Bar';
$k{'C'} = 'Baz';