Select Code to Download

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

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

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