for (@data) {
   my @a = (split)[0,1];
   my @a = (split " ", $_, 3)[0,1];
   my ($x, $y) = split(" ", $_, 3);
   my ($x, $y) = split;
   ...
}