Select Code to Download

@array1 = qw(some_unique_key1 some_unique_key2 some_unique_key3);
@array2 = qw(meta_data_1 metadata_2 metadat_3);
...

use Data::Dumper;
die Dumper $hashref;

$VAR1 = {
     'some_unique_key3' => {
...
                             'Metadata' => 'meta_data_1'
                           }
   };