my %HoH = map { $array1[$_] => “array2” => $array2[$_] } 0 .. $#array1;
%HoH = map { $array1[$_] => “array3” => $array3[$_] } 0 .. $#array1;
%HoH = map { $array1[$_] => “array4” => $array4[$_] } 0 .. $#array1;
%HoH = map { $array1[$_] => “array5” => $array5[$_] } 0 .. $#array1;