foreach my $key2 (keys %hash2) { $hash1{$key2} = $hash2{$key2}; }