Building upon LanX's reply, perhaps the following will be helpful. Also note that it's not necessary to use a C-style loop here:

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";
}
[download]

Output:

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

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

h => h1
g => g1
i => i1
[download]