Select Code to Download

>perl -wMstrict -MData::Dumper -le
"my $hr = { qw(a 1  b 2  c 3  d 4) };
...
          'D' => '4',
          'C' => '3'
        };