sub count_support_mismatch {
	my( $hashref, $arref, $d ) = @_;
	my $counter = 0;

	foreach my $key ( keys %{ $hashref } ) {
		my $ar = $hashref->{$key};
		my @match_list;

		print join( '|', @{ $ar } ) . "\n" . join( '|', @$arref ) . "\n";

		foreach  my $q ( @$arref  ) {
			print "Hamming '$ar->[ 0 ]' <=> '$q'\n";
			my $dist = hd( $ar->[ 0 ], $q );

			if( $dist <= $d ) {
				#print "$q - $_\n";
				push @match_list, $ar->[ 0 ];
			}
		}
		$counter++ if @match_list;
	}
	return $counter;
}