Select Code to Download

Family    lacM    taba    mori    glyB    gly4
OG_1    1    0    1    0    0
OG_2    0    1    0    1    0

my $a=shift @COUNT;
my @families=split(/\s+/,$a);
...
foreach my $k (keys %participants) {
    $og_to_gid{$k}=$families[$participants{$k}];
}