Select Code to Download

%myhash = ( 'aNumber.aCharacters' => 
            { 'bNumber.bCharacters' =>
...
              }
            }
);

print $myhash{'1.AB'}{'2.AB'}{'one'}, "\n";

1.AB
121.ABC1
52.ABC2