如何使用perl将xml路径包含到散列中

I have some xml files in a directory , so I am searching required xml files in that directory and storing xml data in a hash data structure using below script. But my problem is I need to save the file path of each xml file in the hash But Can any one help me how to save file path in hash data I written script like thisI have some xml files in a directory , so I am