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