join("\t",
@{$extra_info{$individual_id}}{qw(family_id individual_id),
qw(paternal_id maternal_id sex phenotype)},
- keys %valid_snps ? @{$samples{$individual_id}}[@valid_snps{@snp_ordering}] : @{$samples{$individual_id}}
+ keys %valid_snps ? @{$samples{$individual_id}}[map {($_*2,$_*2+1)} @valid_snps{@snp_ordering}] : @{$samples{$individual_id}}
)."\n";
}
}