Select Code to Download

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

for my $i (0 .. $#y)
{
    $i == 0 ? $x{$y[$i]} = 1 : $x{$y[$i]} = undef;
}