open my $genotyped_fh, '<', $list_geno or die "Cannot open $list_geno\n";