print grep /Teddy/, keys %::;    # Teddy:: 
print $::{'Teddy::'};            # *main::Teddy::
print keys %{$::{'Teddy::'}};    # foo
print $::{'Teddy::'}{foo};       # *Teddy::foo