Select Code to Download

#! /usr/bin/perl

...
foreach my $key (keys (%{$doc->{breakfast_menu}})){ 
        print "$key --> $doc->{breakfast_menu}->{$key}->{name}\n" ;
}

<breakfast_menu>
  <food>
...
  </food>
  .....
</breakfast_menu>