sub makeEvent {
    sprintf("%08d\t%s",@_);
}

@event_queue = (makeEvent($time,"Event 1"), makeEvent($time,"Event 5"), makeEvent($time,"Event 5"));
# now this works fine!
@event_queue=sort @event_queue;