sub foo : lvalue { $dat{ +shift }->{ 'foo' } }