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