in reply to Hash of Hashes of Arrays

my %HoH;
for (@AoA) {
    $HoH{ $_->[0] }{ $_->[1] } = [ $_->[2] .. $_->[3] ];
}

[download]

In Section Seekers of Perl Wisdom