in reply to hashes with multiple values

my %hash = map { ($keys[$_] => [$ar1[$_], $ar2[$_], $ar3[$_]]) } 0..$#
+keys;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom