#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @array1 = (
  "hello",
  "world"
);

my @array2 = (
  "here"
);

my @array3 = (
  "there"
);

my %inner_hash = (
  innerkey1 => \@array1,
  innerkey2 => \@array2,
  innerkey3 => \@array3
);

my %hash_of_hash_of_arrays = (
  key => \%inner_hash
);

print Dumper(\%hash_of_hash_of_arrays);

exit(0);



##</code><code>##

$VAR1 = {
          'key' => {
                     'innerkey2' => [
                                      'here'
                                    ],
                     'innerkey3' => [
                                      'there'
                                    ],
                     'innerkey1' => [
                                      'hello',
                                      'world'
                                    ]
                   }
        };

##</code><code>##

my %hash_of_hash_of_arrays = {
           'key' => {
                      'innerkey2' => [
                                       'here'
                                     ],
                      'innerkey3' => [
                                       'there'
                                     ],
                      'innerkey1' => [
                                       'hello',
                                       'world'
                                     ]
                    }
         };


##</code><code>##

$VAR1 = {
          'HASH(0x57e1d78)' => undef
        };