use strict;
use warnings;

my @AoH = (
	{
		a => "a1",
		b => "b1",
		c => "c1",
	},
	{
		d => "d1",
		e => "e1",
		f => "f1",
	},

	{
		g => "g1",
		h => "h1",
		i => "i1",
	},
);

for my $i ( 0 .. $#AoH ) {
	for my $key ( keys %{ $AoH[$i] } ) {
		print "$key => $AoH[$i]{$key}\n";
	}
	print "\n";
}

##</code><code>##

c => c1
a => a1
b => b1

e => e1
d => d1
f => f1

h => h1
g => g1
i => i1