@event_queue = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_, split /\t/, $_, 1] } @event_queue;