while(my($k,$v) = each %y)
{  $h{$k} = $v;
}