Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
     foreach keys($xhash){
     keys(%xhash)=$c_hash{'$key'}{'repval'};
     print Dumper $xhash;}

%xhash = ('1' => {
                 '2' => {
                        '5' => 'E',
...
',
                 '4' => 'D'
               });