$ perl -Mcharnames=:full -E 'say charnames::viacode($_) for (0x3b1, 0xdf, 0xa3)'
GREEK SMALL LETTER ALPHA
LATIN SMALL LETTER SHARP S
POUND SIGN