펄/Perl] 2차원 배열 만들기 / 배열의 배열 / 초기화 방법 - Array of Arrays

#!/usr/bin/perl
use strict; use warnings;


  my @AoA = (
             [ "0번째 배열 0번째 요소", "0번째 배열 1번째 요소" ],
             [ "1번째 배열 0번째 요소", "1번째 배열 1번째 요소", "1번째 배열 2번째 요소" ],
             [ "2번째 배열 0번째 요소", "2번째 배열 1번째 요소" ],
            );

    print $AoA[0][0], "\n";
    # 출력 결과: 0번째 배열 0번째 요소

    print $AoA[1][2], "\n";
    # 출력 결과: 1번째 배열 2번째 요소


    # 변수로 요소 지정
    my $x = 2;
    my $y = 1;
    print $AoA[$x][$y], "\n";
    # 출력 결과: 2번째 배열 1번째 요소


    # 요소의 값 변경
    $AoA[1][1] = "안녕하세요";
    print $AoA[1][1], "\n";
    # 출력 결과: 안녕하세요


    # 새 요소 추가
    $AoA[10][10] = "ㅎㅎ";
    print $AoA[10][10], "\n";
    # 출력 결과: ㅎㅎ


    # 숫자 대입
    $AoA[10][10] = 123;
    print $AoA[10][10], "\n";
    # 출력 결과: 123