my @AoH = (
{
Lead => "fred",
Wife => "wilma",
Son => "bambam",
},
{
Lead => "george",
Wife => "jane",
Son => "elroy",
},
{
Lead => "homer",
Wife => "marge",
Son => "bart",
});
for my $i ( 0 .. $#AoH )
{
print "$i is { ";
for my $role ( keys %{ $AoH[$i] } )
{
print "$role=$AoH[$i]{$role} ";
}
print "}\n";
}
####
0 is { Son=bambam Lead=fred Wife=wilma}
1 is { Son=elroy Lead=george Wife=jane }
2 is { Son=bart Lead=homer Wife=marge }
####
Original AoH:
0 is { Son=bambam Lead=fred Wife=wilma}
1 is { Son=elroy Lead=george Wife=jane }
2 is { Son=bart Lead=homer Wife=marge }
New AoH:
0 is { Son=bambam Lead=fred Wife=wilma}
1 is { Son=bart Lead=homer Wife=marge }
2 is { Son=elroy Lead=george Wife=jane }