my ($x, $z) = (split(",",'7,8,9'))[0,2];