How do you define a table/array in COBOL?

01 ARRAYS.
05 ARRAY1 PIC X(9) OCCURS 10 TIMES.
05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEX.

Code for Program to use multiple array in Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. ARR. 

DATA DIVISION.
01 ARR1.
   02 A OCCURS 3 TIMES.
      03 A1 OCCURS 3 TIMES.
         05 TEMP PIC  99.
01 I PIC 9.
01 J PIC 9.

PROCEDURE DIVISION.

 BEGIN.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I>3
       PERFORM VARYING J FROM 1 BY 1 UNTIL J>3
           ACCEPT TEMP (I,J)
       END-PERFORM
    END-PERFORM.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I>3
       PERFORM VARYING J FROM 1 BY 1 UNTIL J>3
           DISPLAY TEMP (I,J) WITH NO ADVANCING
       END-PERFORM
           DISPLAY " "
    END-PERFORM.
         STOP RUN.