Какую функцию/алгоритм хеширования использует Perl?

Не могли бы вы пролить свет на функцию/алгоритм хеширования, который Perl использует для сопоставления строки с индексом? Любое соответствующее чтение?