@allfiles = readdir THEDIR;

##</code><code>##

@allfiles = grep /^xxxxx/,readdir THEDIR;