my %myhash = map { $array1[$_] => $array2[$_] } 0 .. $#array1;