Но факт в том, что они дико медленные

Надо свои бенчмарки откопать

Нет, нет вызова функции.

sub foo () { 42 }
говорит, что значение "подпрограммы" foo не зависит от аргументов. И его значение подставляется на место "вызова" foo в компайлтайме. Но сравнивать имеет смысл, если результат константы скаляр. Для других данных (хэшрефов) оптимизации может и не произойти - все зависит от того, как это значение используется.

Спорить не стану, компа под рукой нет. В свободное время займусь, посмотрю

Нет. Под капотом use constant создает сабы с пустым прототипом, которые инлайнятся (их физически как  сабы нет, можете каким- нибудь Deparse'ом посмотреть)

То, что в base.pm и других подобных местах говорится о том, что constant.pm "медленный" - относится только к тому, что обработка предложения "use constant XXX ...;"  - это require модуля, с последующим вызовом метода import и т.д. Тогда как просто определение  сабы с пустым прототипом - это, условно, просто разбор данного кода в исходнике. Т.е. ручное определение константной сабы ускоряет только это создание константы, а не скорость использования получившихся констант - она такая же, как у constant.pm

@PerlBanjoBot $ perl -MO=Concise,-exec -e 'sub foo() { 42} print foo . "\n"'

-e syntax OK
1  <0> enter v
2  <;> nextstate(main 3 -e:1) v:{
3  <0> pushmark s
4  <$> const(PV "42\n") s/FOLD
5  <@> print vK
6  <@> leave[1 ref] vKP/REFC
https://PerlBanjo.com/778559d157

Ответ выше. Быстрее сделать нельзя.

Да даже perldoc напрямую говорит что это все инлайнится на стадии BEGIN

ВНЕЗАПНО

Лол

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

Блин, уже показали :(

интересное дело

погонял сейчас бенчмарки и constant оказался быстрее

хотя пару лет назад ситуация была ровно обратная

щас perlbrew накачу, погоняю тесты под версией из прода

я в детстве пробовал этот совет кота матроскина. без разницы :)