Dr Manhattan,

What's wrong with using 'glob'?

   perl -E '%h=glob("*hp.txt");say join("\n",%h);'
[download]

you probably want to use a 'foreach' with 'keys' and maybe 'sort' to do something with the hash!

But that's an easy way to work with your current directory.

Good Luck...Ed