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