Beginners guide to File::Find provides examples of how to use File::Find to traverse a directory tree, simply put you need to add files to the zip if they match your criteria in the "wanted" function.

You can use this rather than a direct directory read to provide you with your list of filenames to check. You'll have to work through spurperl's tutorial, but that way you'll have learned something from this exercise ;)