my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(aa bb cc dd ee ff gg hh jj kk ll));