perl to count specific file in dir