Select Code to Download

my $HoA = {
            '1,2,flintstones' => [ "fred-1 foo-2", "barney-1 bar-2" ],
...
      };

$VAR1 = [
          {
...
          }
        ];

my $AoH = [

...
              },

];