my ($x, $y, $z) = (0,0,0);
($x, $y, $z)=split;