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

  print "x = $x  y= $y  z =$z\n";