my ($x, $y, $z) =
    map { defined() ? $_ : '[undef]' }
    split ',', $_, 3;

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