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

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 $graph = Graph::Undirected->new;

foreach my $group (keys %groupOfBact) {
    foreach my $strain (keys %{$groupOfBact{$group}}) {
        $graph->add_edge($group, $strain);
    }
}

my @cc = $graph->connected_components();

print Dumper(\@cc);