sub routine {
    my ($hash_ref1,$hash_ref2)=@_;
    $hash_ref1={%$hash_ref1, key => 'wert'};
}