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

##</code><code>##

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

##</code><code>##

  @h{ keys %y } = values %y;