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