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; }