To do this manually, you will need a recursive subroutine. Instead, I would recommend using File::Find to iterate over your files.