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 $hashref (@AoH) {
	print "$_ => $$hashref{$_}\n" for (keys %$hashref);
}

##</code><code>##

$ perl  aoh.pl
c => c1
a => a1
b => b1
e => e1
d => d1
f => f1
h => h1
g => g1
i => i1