my @array1 = ( 5, 6, 7, 8 );
my @array2 = ( 6, 7, 8, 9 );
my @array3 = ( 7, 8, 9,10 );
my @array4 = ( 8, 9,10,11 );
my @array5 = ( 9,10,11,12 );

my %hoa = map { $array1[$_] =>
                [ $array2[$_], $array3[$_], $array4[$_], $array5[$_] ]
              } 0 .. scalar @array1 - 1;

print Dumper \%hoa;