Вот тебе ответ: https://perlbanjo.com/ccae0891f3

откуда ты знаешь что проблема из за JSON::PP а не из-за версии перла?

Потому что Perl так вёл себя примерно с версии 5.006 (раньше я не помню).

Есть ещё вероятность, что именно в 5.24  что-то сломали.

$num2 .= '';
my $num3 = $num2 + 0.01;

$num2 .= '';
my $num3 = $num2 + 0.01;
$num2 .= '';

а в чем разница? (для тех кто с телефона)

Арифметические операции как побочный эффект меняют флаг представления скаляра-аргумента (строка->число).

дак и пофиг жы

Вот код

   use JSON::PP;

   warn $JSON::PP::VERSION;

   my $num2 = 3.1415926;
   $num2 .= '';
   warn encode_json {num2 => $num2};

   my $num3 = $num2 + 0.01;
   warn encode_json {num2 => $num2};

До версии 5.26.3 (включительно) этот код выводит

   {"num2":"3.1415926"} at script.pl line 12.
   {"num2":"3.1415926"} at script.pl line 15.

начиная с 5.28.2 во втором json-е число, а не строка:

   {"num2":"3.1415926"} at script.pl line 12.
   {"num2":3.1415926} at script.pl line 15.

а, в json

а я уж было подумал, что-то реально страшное

плюсую ораторов со схемой

С какой схемой?

JSON Schema

https://metacpan.org/release/JSON-Schema-Fit ?

или локальные эквиваленты

А, понятно. Т.е. просто объявлять такое поле как string. Этого тоже хотелось избежать. Т.к. хотелось бы передать другому сервису признак "это число, но закодированное в строку для сохранения точности". А в стандартных схема JSON такой возможности сейчас нет. Т.е. это всё равно костылить ручное приведение на уровне неформальных соглашений.

Ммм?

Другой сервис же получает только json

Все остальное — внутри товоего кода

угу, тут родовые травмы JSON