How did you manage to insert the event into %queue_changes? Perl ought to die with "Invalid value for shared scalar" when you try to assign an unshared reference. Please try the following:

$queue_changes{$event_id} = shared_clone(\%type);
[download]