Perl - Найти повторяющиеся строки в файле или массиве

Я пытаюсь распечатать повторяющиеся строки из дескриптора файла, а не удалять их или что-то еще, что я вижу заданными по другим вопросам . У меня недостаточно опыта работы с Perl, чтобы быстро это сделать, поэтому я спрашиваю здесь. Как это сделать?