Look on CPAN for the module File::Find. It can traverse the directories for you, saving yourself the code. Then you can just grep the files you find w/ this regex /html?/. If you don't want to intsall File::Find, then your best bet would be to implement a recursive subroutine that returns as a list all the file names (possibly as a hash of hashes if you want to provide more information about the files). If there's anything else, just ask.
Well, it appears that many people beat me to the question, and all offered similar advice(if not better). Oh, well.