Select Code to Download

cog_class(\@c1_uniq_cog_ids, $name1);
sub cog_class {                                                       
+      my ($c1_uniq_cog_ids, $name) = @_;
  ### you can use @$c1_uniq_cog_ids to get the contents array
}

cog_class($name1,@c1_uniq_cog_ids);
sub cog_class {
    my ($name,@c1_uniq_cog_ids)=@_;
}