foreach my $key ( keys %event_hash ) {
     print "$key: { ";
    
    for my $key2 ( sort keys %{ $event_hash{$key} } ) {	
	sort { keys %{$event_hash{$key}{$b}} cmp keys %{$event_hash{$key}{$a}} } keys %event_hash;
	print "$key2=$event_hash{$key}{$key2} ";
    }
     print "}\n";
 }