use strict;

@event_queue = ("18", "503", "103", "501", "53");

@event_queue = sort(@event_queue);
foreach $_ (@event_queue){
    print "$_\n";
}

##</code><code>##

103
18
502
503
53

##</code><code>##

18
53
103
502
503