foreach my $sam  (keys % {$geno_seq_list} ) {
		my $seq_used = $geno_seq_list->{$sam};
		my $cave_used = $cave_snp_list->{$sam};
		foreach my $seq2com (@ {$seq_used } ){

		#	foreach my $cave2com( @ {$cave_used } ){

				print $seq2com->{chromosome},":" ,$cave2com->{chromosome},"\n";
		#	}	
		}
}