my @files = grep !/^\.\.?/ && /.*pm$/, readdir DIRH;

##</code><code>##

my @files = grep /\.pm$/, readdir DIRH;