my $dst = Sub1();
my $src = Sub2();

foreach my $key1 (keys %$src) {
   my $inner = $src->{$key1};
   foreach my $key2 (keys %$inner) {
      my $val = $inner->{$key2};
      $dst->{$key1}{$key2} = $val;
   }
}
[download]

Or you could use a slice instead of the inner loop. The following piece is a rewrite, that is easily extended to more than merging the result of two subs:

my $part1 = Sub1();
my $part2 = Sub2();

my $ans = {}; # where the final answer will live

foreach my $part ($part1, $part2) { # loop over parts
  foreach my $k (keys %$part) {
     my $inner = $part->{$k};
     @{$ans->{$k}}{keys %$inner} = values %$inner;
  }
}

use Data::Dump qw(dump);
print dump $ans; # that's what you got
[download]

Obviously, this merge only works at two-level hashes.

Hi,

I use simple hash merge concept here. i think this code will help you

use Data::Dumper;
my $sub1 = { 'a' => {'apple' => 1 ,'ape' => 2},
             'b' => {'ball' => 1, 'bell' => 2}
           };

my $sub2 = { 'd' => {'dog' => 1},
             'c' => {'cat' => 1, 'clear'=> 2}
           };
my %hash = (%$sub1 ,%$sub2);
print "\n". Dumper( \%hash);
[download]

thanks

ASHOK

Unfortunately, that overwrites second-level hashes. Hash::Merge is a better solution.