@files = grep {-f "$dir/$_" && m/.xml/} readdir DIR;