perl $scriptdir/sort_trait.pl snp_var.fam \$workdir/05.trait/Thousand_Grain_Weight_2020.txt |cut -d " " -f 1-5,7 >snp_var.fam1
mv -f snp_var.fam1 snp_var.fam
readline() on closed filehandle IN at /home/sdl/trial/5.23gwas/scripts/sort_trait.pl line 11.
