my %hash2;
for my $i (0 .. $#array1) {
    $hash2{ $array1[$i] }{ $array2[$i] } = $array3[$i];
}