If the task is simple enough, you can try solving this without perl, using find and other utilities. An untested example is

find . -type d -print0 | xargs -0 chmod 00777
[download]

If you have to use perl, I recommend the File::Find module or merlyn's File::Finder.

Update: I've misunderstood the question, sorry. You want to read the filenames from the list you gave, not blindly chmod all files.