Perl 遍历指定目录，指定后缀名，关键字匹配

图片说明
报错说变量未初始化
请大神解答一下

https://www.cnblogs.com/zencorn/archive/2012/07/25/2608195.html