15:57 >perl -MData::Dumper -wE "my %h = (a => 7, b => 13); $h{b} = 42; print Dumper(\%h);"
$VAR1 = {
          'b' => 42,
          'a' => 7
        };

15:57 >

##</code><code>##

$queue_changes{$event_id} = %type;

##</code><code>##

$queue_changes{$event_id} = \%type;

##</code><code>##

$event_id = int(rand(25000));