@event_queue = ("18", "503", "103", "501", "53");
@event_queue = map{(split)[1]}
               sort
               map{(length length).(length)." $_"}
               @event_queue;