@dups = glob qq~files/"$dir"/*.txt~;