my @AoH;
...
@{ $AoH[ @AoH ] }{ qw[ a b c ] } = qw[ 1 2 3 ];

pp \@AoH;
__END__
[{ a => 1, b => 2, c => 3 }]