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

##</code><code>##

This is perl, v5.8.6 built for MSWin32-x86-multi-thread