charnames Прагма обеспечиваетcharnames::viacode который возвращает «лучшее» имя для данной кодовой точки

Например

$ perl -Mcharnames=:full -E'say charnames::viacode(ord "A")'
LATIN CAPITAL LETTER A

Есть ли удобный способ найти все известные псевдонимы для этого имени из Perl?