# instead of
# @SUBDirList = readdir(SUBDIR);
@SUBDirList = grep {/html$/} readdir (SUBDIR);