foreach my $key1 ( sort keys %genes ) {
     print "\t". scalar (keys %{$genes{$key1}}) . "\t";
          foreach my $key2 ( sort keys %{$genes{$key1}} ) { etc....