Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @equiv_sets = equivalence_sets(\@sets);

print Dumper(\@equiv_sets);

$VAR1 = {
          'group2' => {
...
            'strain3'
          ]
        ];

#!/usr/bin/perl -w
use strict;
...
my @cc = $graph->connected_components();

print Dumper(\@cc);

$VAR1 = {
          'group2' => {
...
            'strain2'
          ]
        ];