Select Code to Download

use warnings;
use strict;
...
3 CCC
4 DDD
2 EEE

$VAR1 = {
          '3' => [
...
                   'EEE'
                 ]
        };