Select Code to Download

my %main = ( 'main1' => {'m1sec1'=> ['A','B','C'],},
             'main2' => {'m2sec1'=> ['D','E','F'],},);

my %seed = ( 'seed' => {'seed1'=> ['X','Y','Z']},);

my %main = (   
               'main1' => {'m1sec1'=> ['A','B','C'],},
...
                                             'DZ','EZ','FZ], 
                                 }
             );

use Data::Dumper;
my %nhash;
...


print Dumper \%main ;