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
}