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