Perhaps this:

my %hash = map { $_->[0] => { $_->[1] => { $_->[2] => 1 } } } \@array1
+, \@array2, . . . \@arrayN;
[download]

Should work if each array only has three elements. I'm not sure how to do it for a varying number of elements, but I'll think about it. Thanks for posting an interesting question :)

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated