$data{'moo'}{'test'} = { a => 1, b => 2 };

# The following line doesn't free the tied hash
# containing a => 1, b => 2 until %data is untied.
$data{'moo'}{'test'} = 'foo';