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