P:\test>457797
$VAR1 = {
          'S1' => 'C-D',
          'S2' => 'C-D',
          'S4' => 'CID',
          'S3' => 'CAD'
        };
From LOOP
$VAR1 = {
          'S1' => 'C-D',
          'S2' => 'C-D',
          'S4' => 'CID',
          'S3' => 'CAD'
        };