sub cog_class {
    my $cog_ids_ref = shift;
    my $name = shift;

    print "NAME $name\n";

    for my $id ( @{$cog_ids_ref} ){
        # BLAH BLAH
    }
}