print join(',',map {qq("$_")} @csv_fields),qq(\n);
for my $gene (keys %genes) {
$genes{$gene}{rzscore} = scalar grep {$_ !~ /\[/} keys %{$genes{$gene}{terms}};
print join(',',map {qq("$_")} @csv_fields),qq(\n);
for my $gene (keys %genes) {
$genes{$gene}{rzscore} = scalar grep {$_ !~ /\[/} keys %{$genes{$gene}{terms}};