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;
   }
}