foreach (@$points) {
  print " $_->[3] $_->[0] $_->[1] $_->[2] \n";
}