use Clusterize;
my $clusterize = Clusterize->new();
    
$clusterize->add_pair(1,['1', '2', '3' ]);
$clusterize->add_pair(2,['4', '6', '5']);
$clusterize->add_pair(3,['1', '2', '3', '2', '3']);
$clusterize->add_pair(4,['1', '2', '3' ]);
$clusterize->add_pair(5,['4', '6', '5']);
$clusterize->add_pair(6,['1', '2', '3', '2', '3']);
$clusterize->add_pair(7,['1', '2', '3' ]);
$clusterize->add_pair(8,['4', '6', '5']);
$clusterize->add_pair(9,['a', 'b', 'c', 'd', 't']);

my @clusters = $clusterize->list;
print scalar(@clusters);