I have a directory /var/spool and inside that, directories named
/var/spool
a b c d e f g h i j k l m n o p q r s t u v x y z
An
You can use File::Find.