use Data::Dumper;
my %world = ( 'fruits' => { 
                            'p' => 'peach',
                            'g' => 'grapes',
                          }
              'birds'  => { 
                            'p' => 'parrot',
                            'c' => 'crow'
                          }
             );

print Dumper \%world;
print "Accessing individual elements:\n";
print $world{'fruits'}{'p'}, "\n";
print $world{'birds'}{'c'}, "\n";