例:「全てのやり方での成分要素の指定」
  
$a = [[1..3], [4..5], [6..9], [10..12]] ;
print <<EOF;
第 0 配列 内の 第 0 成分 は @$a->[0]->[0] です。
第 0 配列 内の 第 1 成分 は @{$a->[0]}->[1] です。
第 0 配列 内の 第 2 成分 は @{$a->[0]}[2] です。
第 1 配列 内の 第 0 成分 は @$a->[1][0] です。
第 1 配列 内の 第 1 成分 は @$a[1]->[1] です。
第 2 配列 内の 第 0 成分 は $a->[2]->[0] です。
第 2 配列 内の 第 1 成分 は $a->[2][1] です。
第 2 配列 内の 第 2 成分 は $$a[2]->[2] です。
第 2 配列 内の 第 3 成分 は $$a[2][3] です。
EOF
  

例:「全てのやり方での成分要素の指定」
  
@b = ([1..3], [4..5], [6..9], [10..12]) ;
print <<EOF;
第 0 配列 内の 第 0 成分 は @b->[0]->[0] です。
第 0 配列 内の 第 1 成分 は @b->[0][1] です。
第 0 配列 内の 第 2 成分 は @b[0]->[2] です。
第 1 配列 内の 第 0 成分 は $b[1]->[0] です。
第 1 配列 内の 第 1 成分 は $b[1][1] です。
EOF
  

例:「2通りのやり方での配列要素の指定」
  
$a = [[1..3], [4..5], [6..9], [10..12]] ;
print <<EOF;
第 0 配列 は (@{$a->[0]}) です。
第 1 配列 は (@{$$a[1]}) です。
EOF
  

例:「2通りのやり方での配列要素の指定」
  
@b = ([1..3], [4..5], [6..9], [10..12]) ;
print <<EOF;
第 0 配列 は (@{@b->[0]}) です。
第 1 配列 は (@{$b[1]}) です。
EOF
  

例:「3通りのやり方での配列要素の追加」
  
$a = [[1..3], [4..5]] ;
push @$a , [6..9] ;
@$a = (@$a , [10..12]) ;
$$a[4] = [13..14] ;
for (@$a){print "@$_ \n"}
  

例:「3通りのやり方での配列要素の追加」
  
@a = ([1..2], [3..5]) ;
push @a, [6..9] ;
@a = (@a, [10..12]) ;
$a[4] = [13..14] ;
for (@a) {print "@$_ \n"}


例1:「(i,j) 成分の指定」
  
@matrix = ([1..4], [5..8], [9..12]) ;
  
print <<EOF;
(0,0) 成分 : $matrix[0][0]
(0,1) 成分 : $matrix[0][1]
(0,2) 成分 : $matrix[0][2]
(0,3) 成分 : $matrix[0][3]
EOF


例2:「行列の表示」
  
@matrix = ([1..4], [5..8], [9..12]) ;
  
for (@matrix) {print "@$_ \n"
  

例:「行要素の追加」
  
@matrix = ([1..4], [5..8], [9..12]) ;
$row = [13..16] ;
push @matrix, $row ;
  
for (@matrix) {print "@$_ \n"}
  

例:「列要素の追加」
  
push @{$matrix[0]}, a ;
push @{$matrix[1]}, b ;
push @{$matrix[2]}, c ;
  

例:「列要素の追加」
  
@column = (a, b, c) ;
for $i (0..@matrix)
    {push @{$matrix[$i]}, $column[$i]}
  

例:「行要素の追加」
  
@matrix = ([1..4], [5..8], [9..12]) ;
@column = (a, b, c) ;
for $i (0..@matrix)
    {push @{$matrix[$i]}, $column[$i]}
  
for (@matrix) {print "@$_ \n"}
  

例2:「転置行列の作成」
  
@a = ([1..4],[5..8],[9..12]) ;
$row = @a-1 ;
$clm = @{$a[0]}-1 ;
  
for $i (0..$row)
    {
for $j (0..$clm)
    {
     $b[$j][$i] = $a[$i][$j]
    }}
  
for (@b) {print "@$_ \n"}