$| = 1;
my $compare_count = 0;
for (my $i = 0; $i < @kmers; $i++ ) {
	for (my $j = $i + 1; $j < @kmers; $j++ ) {
		print "\rComparing sequence $i to $j";
		my @result = PCCompare::dissimilarity($kmers[$i], $kmers[$j], 1);
		if ($result[0] == 1) {
			print "\rMatch found: $kmers[$i], $kmers[$j]\n";
			push @variant_kmers, ($kmers[$i], $kmers[$j]);
		}
		$compare_count++;
	}
}
print "\rFinished: $compare_count comparisions made.\n";