Что значит «формула расчета»?
Если вас интересует, какая именно хэш-функция используется в перле для обработки ключей хэша, то, вообще говоря, языком это никак не определяется, делать какие-то выводы из количества занятых/размещенных buckets не стоит.
Сейчас, afaik, в современных сборках перла обычно используется один из вариантов функции Дженкинса. Вы можете вызвать ее сами, она называется B::hash.
% perl -e 'use B; print B::hash($_), "\n" for (qw(q w e r t))'
0xefdd5f9b
0x58a0b120
0x11162210
0x26014be2
0x497812cf
Как видите, значения разные, и как именно распределятся 32-битные хэш-суммы по отведенным блокам памяти, увидеть отсюда нельзя.
Я попробовал в лоб пару идей, например, выделив младшие биты из хэш-суммы:
% perl -e 'use B; print hex(B::hash($_)) & 7, "," for (qw(q w e r t u x c v z))'
3,0,0,2,7,1,5,1,5,6,
но нифига не получается. На хэш из этих значений тоже отводится 4 из 8 блоков:
% perl -e '%h = (qw(q w e r t u x c v z)); print scalar %h'
4/8
Дальше угадывать ломает, лучше я загляну в исходники перла %)