@allfiles = grep { ! /^1021/ } readdir THEDIR;