my @keys = qw(start stop step);
for my $type (@keys) {
  next unless exists $point->{$type};
  print $point->{$type}, "\t";
}