my @AoH = ({'name' => 'Barney', 'age' => '34'},{'name' => 'Fred', 'age' => '36'},);

my %hash = $AoH[0];
print keys %hash;

__OUTPUT__
name, age