Select Code to Download

use strict;
use warnings;
...
$main{'main-join2'} = {'m2sec1' => [@m2sec1]};

print Dumper \%main;

$VAR1 = {
          'main-join1' => {
...
                                        ]
                          }
        };