sub routine {
my ($hash_ref1, $hash_ref2) = @_;
my %hash1 = %$hash_ref1;       #umkopieren