Select Code to Download

my @array1 = ( 5, 6, 7, 8 );
my @array2 = ( 6, 7, 8, 9 );
...
              } 0 .. scalar @array1 - 1;

print Dumper \%hoa;

$VAR1 = {
          '8' => [
...
                   9
                 ]
        };