#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use Algorithm::EquivalenceSets;

my %groupOfBact = (
    group1 => {
        strain1=>1,
        strain2=>1,
        strain4=>1,
    } ,

    group2 => {
        strain3=>1,
        strain4=>1,
        strain5=>1,
    } ,

    group3 => {
        strain6=>1,
        strain7=>1,
    },
);

print Dumper(\%groupOfBact);

my @sets = map { [ keys %{$groupOfBact{$_}} ] } keys %groupOfBact;

print Dumper(\@sets);

my @equiv_sets = equivalence_sets(\@sets);

print Dumper(\@equiv_sets);