如何遍历perl中的哈希哈希并访问包含的数据？

Question

I have a list

my %SERVICES = (
              name=>
              {
                 description => 'Item 1',
                 service_codes => [ 'item1' ],
              },
              name2=>
              {
                 description => 'Item 2',
                 service_codes => [ 'item2' ],
              },
            );

what I need to do is reference the description and print it to a variable called $service_name so when referenced the text will read Item 1 or Item 2.

I am VERY new at perl and am trying to learn this on my own the best as I can. Any help would be appreciated, please use small words. :)

Answer 1

Easy enough, try looping over the data structure

while ( my ($k, $data) = each %SERVICES ) {
  my $service_name = $data->{description};
  say $service_name;
}

Answer 2

Program:

foreach my $id (keys %SERVICES)
{
  my $des = $SERVICES{$id}{'description'};
  print "$des\n";
}