MySQL - Perl: как получить массив почтовых индексов в пределах отправленных «х» миль отправленного «почтового индекса» в примере Perl

Я нашел множество расчетов здесь, и некоторые php-примеры и большинство из них только что над моей головой.

Я нашел этот пример:

SELECT b.zip_code, b.state,
       (3956 * (2 * ASIN(SQRT(
       POWER(SIN(((a.lat-b.lat)*0.017453293)/2),2) +
       COS(a.lat*0.017453293) *
       COS(b.lat*0.017453293) *
       POWER(SIN(((a.lng-b.lng)*0.017453293)/2),2))))) AS distance
FROM zips a, zips b
WHERE
       a.zip_code = '90210' ## I would use the users submitted value
GROUP BY distance
having distance <= 5; ## I would use the users submitted value

Но у меня возникли проблемы с пониманием того, как выполнить запрос с моей базой данных.

Похоже, этот запрос имеет все, что мне нужно.

Однако я даже не могу найти/понять, что такое b.zip_code на самом деле! (что b. и zips a, zips b?)

Мне также не нужен state в запросе.

Структура my myQL SQL выглядит следующим образом:

    ZIP | LAT     | LONG
  33416 | 26.6654 | -80.0929

Я написал это в попытке вернуть какие-то результаты (не основанные на вышеуказанном запросе), но он выдает только один почтовый индекс.

## Just for a test BUT, in reality I desire to SELECT a zip code WHERE ZIP = the users submitted zip code
## not by a submitted lat lon. I left off the $connect var, assume it there.
my $set1 = (26.6654 - 0.20);
my $set2 = (26.6654 + 0.20);
my $set3 = (-80.0929 - 0.143);
my $set4 = (-80.0929 + 0.143);
my $test123 = $connect->prepare(qq{SELECT `ZIP` FROM `POSTAL`
WHERE `LAT` >= ? AND `LAT` <= ? 
AND `LONG` >= ? AND `LONG` <= ?})  or die "$DBI::errstr";
$test123->execute("$set1","$set2","$set3","$set4") or die "$DBI::errstr";
my $cntr;
while(@zip = $test123->fetchrow_array()) {
    print qq~$zip[$cntr]~;
    push(@zips,$zip[$cntr]);
    $cntr++;
}

Как вы можете видеть, я довольно новичок, поэтому мне нужна ручная работа с подробным объяснением.

Итак, в Perl, как я могу нажимать zip-коды в массив из ПОМОЩИ ПОСТАВЩИКА ПОЛЬЗОВАТЕЛЯ, а пользователь отправил DISTANCE в милях. Может быть квадратом, а не кругом, а не критическим для функции. Быстрее - лучше.