## Make the value of key 'A' an anonymous hash.
$cfg::thash{A} = {}; 

## add a key '1' to that anonymous hash with the value "b";
$cfg::thash{A}{1} = "b";