...
  @event_queue = sort { $a <=> $b } @event_queue;
  ...