use List::MoreUtils qw(zip);

my @keys = qw( a b c d );
my @values = qw( A B C D );
push @array_of_hash_refs, {+zip @keys, @values};
[download]