You can also use the File::Find module as follows to populate your array:

 
use File::Find;
find sub { push @reportdirs, $File::Find::name, if -d && /^reports$/ }
+, "/opt/web";
[download]

That way, you won't have to modify your file every time your directory structure changes. You then can readdir each directory in the array to begin processing the files it contains.
Jason