while ($pointer = $sth->fetchrow_hashref)
    {
          ....code....

           $status=~s/P|F|C|D|I/Posted/g;
           $status=~s/A/Accepted/g;
           $status=~s/N/New/g;
           $status=~s/R/Rejected/g;
           $status=~s/S/Save/g;
           $status=~s/X/Canceled/g;

my @strings = $status;
my @sorted_strings = sort @strings;
print "<br><font color=red> @sorted_strings</font><br>";

}
[download]