while (my ($key, $value) = each %$hash1)
{
  $hash3{$key} = $value;
}