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