in reply to How to print unique directores

To get only the dirname see File::Basename - Parse file paths into directory, filename and suffix.

In Section Seekers of Perl Wisdom