Help for this page
#! /usr/bin/perl ... foreach my $key (keys (%{$doc->{breakfast_menu}})){ print "$key --> $doc->{breakfast_menu}->{$key}->{name}\n" ; }
<breakfast_menu> <food> ... </food> ..... </breakfast_menu>