foreach my $g (@gl) {
  print "$g occures ",($hfr_genes{$g} || 0)," time(s)\n";
}