$::{'Teddy::'}{foo} = \'cheese';

print $Teddy::foo;    # cheese
$Teddy::foo = 'bar';  # "Modification of a read-only value attempted at ..."