my @pairs = %y;
while(@pairs)
{   my $k = shift @pairs;
    my $v = shift @pairs;
    $h{$k} = $v;
}