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