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