perl :подсчет уникальных элементов в массиве

У меня есть простой массив с именами в нем, и я хочу иметь возможность легко распечатать, сколько раз встречается каждое имя.

Я пытался создать множество циклов for и инструкций diff, чтобы сначала создать другой массив с уникальными значениями, а затем попытаться подсчитать значения в исходном массиве и сохранить их в третьем массиве. Это казалось слишком сложным, и я хотел посмотреть, может быть, есть более простой способ сделать это.