foreach my $i (0 .. $#y)
{
    $x{$y[$i]} = $z[$i];
}