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