Perl : obtenir le code ascii d'un caractère

J'aimerai connaitre la fonction sous perl, si elle existe, qui fait l'inverse de chr:

chr(code) retourne le caractère qui correspond au code ascii

fonction(caractère) qui me donnerait le code ascii du caractère... je pense que ca doit exister...

Merci d'avance!!!