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