File::Find is one way to search thru a directory structure; use it to find the file with the highest priority. Then just trace down $File::Find::dir, printing the directory contents as you go. Fancy formatting is left as an exercise for the student.