Cleanup of code with brackets due to 5.14 issues

misc-scripts/ebi_search_dump/ebi_search_dump.pl

@@ -463,7 +463,7 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
         print "Done Get Genes query...\n---------------------\n";
 
         my %hash = map { $_->[0] } @$gene_info;
-        my $ecount = scalar keys %hash, "\n\n";
+        my $ecount = scalar(keys(%hash)). "\n\n";
 
         my %old;
 

misc-scripts/ebi_search_dump/ebi_search_dump_generic.pl

@@ -486,7 +486,7 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
         print "Done Get Genes query...\n---------------------\n";
 
         my %hash = map { $_->[0] } @$gene_info;
-        my $ecount = scalar keys %hash, "\n\n";
+        my $ecount = scalar(keys(%hash)). "\n\n";
 
         my %old;