my %translateLongStatus = (
    'I'  => 'Incomplete',
    'SI' => 'Submitted Incomplete',
    'C'  => 'Submitted',
);

...
    my ($longStatus, $rowStyle, $rowColor);
    $longStatus = $translateLongStatus{ $collectionData[$i]{Status} } ||'Submitted Complete';
...
}