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