my ($x, $y) = split ...;