Re: Merging Data into one array

[choroba]

You can transform your data into two hashes, ACC being their keys. Then you can easily iterate over the keys of one hash and merge with the corresponding value from the second hash if the key exists there:

my @transformed = map +{
    map {
        my $k = delete $_->{ACC};
        $k => $_;
    } @$_
}, $data1, $data2;

my @merged;
for my $key (keys %{ $transformed[0] }) {
    if (exists $transformed[1]{$key}) {
        push @merged, { ACC => $key,
                        %{ $transformed[0]{$key} },
                        %{ $transformed[1]{$key} }
                      };
    }
}

print Dumper \@merged;