my %subst (
   P => 'Posted',
   F => 'Posted',
   C => 'Posted',
   D => 'Posted',
   I => 'Posted',
   A => 'Accepted',
   N => 'New',
   R => 'Rejected',
   S => 'Save',
   X => 'Canceled',
);

my @strings; # Note: declared before
while ($iteration_condition_is_true) {
   my $status = gets_some_value();
   my $extended_status = $subst{$status};

   # Add the string to the list
   push @strings, $extended_status;
}
my @sorted_strings = sort @strings;