perl -F, -lane '$F[4]=~s/(^"|"$)//g;print qq/ro\/CD000001$F[0]201003.dat rs\/201003_$F[4].dat/' list.csv|while read LINE;do diff -q $LINE;done
perl -F, -lane '$F[4]=~s/(^"|"$)//g;print qq/ro\/CD000001$F[0]201003.dat rs\/201003_$F[4].dat/' list.csv|while read LINE;do diff -q $LINE;done