in reply to Hash of Hashes of Arrays

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

[download]
Examine what is said, not who speaks.
Silence betokens consent.
Love the truth but pardon error.

In Section Seekers of Perl Wisdom