foreach $thing (keys %dbfield) {
                print "the members of $thing are:\n";
                foreach (@{$dbfield{$thing}}) {
                        print "\t$_\n";
           }
   }