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