Select Code to Download

#!/usr/bin/perl

...
}

say Dumper \%h;

{
          '1' => [
...
                 ],
          '2' => $VAR1->{'1'}
        }

{
          '1' => [
...
                   ]   
                 ]   
        }