my %hash;
%hash{"A"}{"A"} = 1;
%hash{"A"}{"B"} = 2;
%hash{"B"}{"A"} = 4;
%hash{"B"}{"B"} = 8;
	
for %hash{"B"}.kv -> $key, $value { 
	say "$key - $value" 
}