это единственный массив запроса, поэтому вы можете преобразовать этот код в perl:
$earthRadius = 6378; // km
$range = 35; // max search km
$max = $range / $earthRadius;
array(
'lat' =>
array('$within' =>
array('$centerSphere' =>
array(array(floatval( 52.417 ), floatval( 16.883 )),
$range/$earthRadius)
)
)
);
$collection->ensureIndex(array('loc.lat' => "2d"), array('background' => true) );