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

my %sironekotoro = (
    name    =>   'sironekotoro',
    favolite_foods    =>    ['beef' , 'pork'],
);

my %softy = (
    name    =>   'softy',
    favolite_foods    =>    ['karikari' , 'kankan', 'beef'],
);

my @human = (\%sironekotoro , \%softy);

# print Dumper @human;

for my $human(@human){
    print "name : $human->{name}\n";
    for my $foods(@{$human->{favolite_foods}}){
        print "I LOVE $foods \n";
    }
    print "---\n";
}

name : sironekotoro
I LOVE beef 
I LOVE pork 
---
name : softy
I LOVE karikari 
I LOVE kankan 
I LOVE beef 
---