my ($x, $y, $z) = split(',', "$_,,");