files=(MYFILES/*.txt) for f in ${files[*]} do sort -u $f ; done | sort | uniq -c | perl -ne 'if (/[[:space:]]+'"$((${#files}+1)) "'(.*)/) {print $1."\n";}'