$ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
   print(Dumper(\%Foo::Bar::))
'
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };

##</code><code>##

$ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
   print(Dumper(\%{"Foo::Bar::"}));
'
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };

##</code><code>##

$ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
   print(Dumper(\%{ $::{"Foo::"}{"Bar::"} }));
'
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };

##</code><code>##

no strict 'refs'; \%{ $package . '::' };

##</code><code>##

my $r = \%::; $r = $r->{$_ . '::'} for split /::/, $package; \%$r