Re: Merge 2 hashes which contains duplicate Keys

[2teez]

You might also find the following useful:

use warnings;
use strict;
use Data::Dumper;

my %h1 = ( "one" => 1, "two" => 2, "three" => 3, );
my %h2 = ( "four" => 4, "five" => 5, "six" => 6, "one" => 11111, );

my $grand_hash_ref = {};

foreach my $hash_ref ( \( %h1, %h2 ) ) {
    while ( my ( $key, $value ) = each %{$hash_ref} ) {
        push @{ $grand_hash_ref->{$key} }, $value;
    }
}

print Dumper $grand_hash_ref;

Please, check perldsc for detailed information.

[slayedbylucifer]

thanks 2teez. Actually, I had seen similar solution @ http://stackoverflow.com/questions/4060331/how-to-merge-2-deep-hashes-in-perl but could not understand it then. Now I think I understand how it is done. thanks for your time.