$VAR1 = 'cycVolumeSetActivity';
$VAR2 = {
          '1' => 'reconstruct',
          '2' => 'initialize',
          '3' => 'verify',
          '10' => 'mirrorCreate',
          '4' => 'spareTest',
          '11' => 'migration',
          '5' => 'scheduledReconstruct',
          '12' => 'expansion',
          '6' => 'scheduledInitialize',
          '7' => 'scheduledVerify',
          '8' => 'scheduledSpareTest',
          '9' => 'mirrorBreak'
        };

##</code><code>##

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";
 }