$APref->{++$id} = { APname => $loc,
  geodesics => [ $lat, $long, dms2rad($lat), dms2rad($long) ]
};