@files = grep (/\.xml$/, readdir(DIR));