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"
}