Create the $PERISH. format. PROC FORMAT creates a format for Department. This variable has four different values in the data set, but the format has only two values.

proc format;
   value $perish 'p1','p2'='Perishable'
                'np1','np2'='Nonperishable';
run;