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