# pick a better name -- I don't know what the data represents
my %srhash = (
    SRADDL => "SRC Addlf",
    SRSUPP => "SRC Supp",
    # and so on
);
$ora = $srhash{$dtype} || $dtype;