So far so fine. Care to read the ramining part of my post?

Turning the glass sphere mode one I guess you may be after something like:

my @strings;
while ( whatever ) {
    # ...
    push @strings, $status;
}
my @sorted=sort @strings;
[download]