Select Code to Download

use Data::Dumper;
my @hashes = (
...
            'two' => 22        
          }                    
        ];

my $reference = [              
 [ 7, 8, 9 ],
...
              12
            ]
          ];