Select Code to Download

print "Number: ", scalar @subgraphs, "\n";
print "First: ", @{ $subgraphs[0] }, "\n";

my @subg;
for my $component (0 .. @subgraphs - 1) {
...
            if grep $_ eq $a[$i], @{ $subgraphs[$component] };
    }
}