IFS=$'\n'; arr=( $( < arts1.tsv ) );
for ((i=0; i<$((${#arr[@]})); i++)); do 
   echo "${arr[$i]}" | tr "[[:space:]]" '\n' | grep -v '^$' | sort | uniq >> ar; 
   sed -i -e 's/^/ /;s/$/ /' ar; 
   while read line <&3; do 
       sed -i -e "s/[[:space:]]$line[[:space:]]/ /g" ar; 
   done 3<stopwords; 
   cat ar | sed "s/[[:space:]]//g" | grep -v '^$' > aar; 
   mv aar ar; 
   num="1"; 
   while read line <&5; do 
       while read LINE <&4; do 
            if [ "$line" == "$LINE" ]; then 
                echo "$num" >> artres; 
            fi; 
       done 4<ar; 
       ((num++)); 
   done 5<word.tsv; 
   artarr[$i]=`cat artres`; 
   rm ar; rm artres; 
done