$_ = 1 for my ($x, $y, $z);