$combined{$k} = $v while my ($k, $v) = each %hash2;