for my $read (@all_reads) {
	print $read->qname,',',$read->aux_get("MD"), ',',$read->cigar_array,',', $read->strand, "\n";
};