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;

##</code><code>##

$VAR1 = {
          '8' => [
                   9,
                   10,
                   11,
                   12
                 ],
          '6' => [
                   7,
                   8,
                   9,
                   10
                 ],
          '7' => [
                   8,
                   9,
                   10,
                   11
                 ],
          '5' => [
                   6,
                   7,
                   8,
                   9
                 ]
        };