print Dumper $curr{my}[2], $curr{my}[2]{AB}, \%CD;

##</code><code>##

$VAR1 = 'CD';
$VAR2 = 1;
$VAR3 = {
          'AB' => 1
        };