#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $me = {
  name => 'Shogo',
  favorite_foods => ['Ramen', 'Curry Rice', 'Sashimi' ]
};

my $major = {
  name => 'Kusanagi Motoko',
  features => ['Conbat', 'Shooting'],
  favorite_foods => []
};

my $batoo = {
  name => 'Batoo',
  features => ['Conbat'],
  favorite_foods => ['cyborg food']
};

my $borma = {
  name => 'borma',
  favorite_foods => ['cyborg food'] 
};

my $tachikoma = {
  name => 'tachikoma',
  favorite_foods => ['natural oil']
};


# my @section9 = qw( $major $batoo );
my @section9 = ( $major, $batoo , $borma, $tachikoma);
# print Dumper(@section9);

my %favorite_foods;
for my $member ( @section9 ) {
#  print Dumper($member);
#  print $member->{favorite_foods} . "\n";
  for my $food ( @{$member->{favorite_foods}} ) {
    # print $food . "\n";
    if ( exists $favorite_foods{$food} ) {
      $favorite_foods{$food}++; 
    } else {
      $favorite_foods{$food} = 1;
    }
  }

}