for ( 0 .. $#AoH ) { push @keys, keys %{ $AoH[$_] }; }