my @files =
    map "$path/$_",
    grep /\.xml\z/,
    readdir(DIR);