Shortened using the new placeholder variables:

my %hash = (
    A => { A => 1, B => 2 },
    B => { A => 4, B => 8 },
);
say "$^k - $^v" for %hash<B>.kv;
[download]