Select Code to Download

$myhash = \%myhash;

...
    my($b)=$_[1];
    $_[0] = { %{$_[0]},  %{$b} };
}

sub mergetwohashes {
    my($a)=$_[0];
    my($b)=$_[1];
    %{$a} = ( %{$a},  %{$b} );
}