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