my $thingy_ref = \%Foo::Bar::Baz::thingy;

foreach my $key ( keys %$thingy_ref ){
    print "$key => $thingy_ref->{ $key }\n";
}