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";
}

##</code><code>##

0 is { Son=bambam Lead=fred Wife=wilma}
1 is { Son=elroy Lead=george Wife=jane }
2 is { Son=bart Lead=homer Wife=marge }

##</code><code>##


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 }