use strict; use warnings; #### - my @matrix = ( $n , $n ); + my @matrix; #### @array = ( 1, 2, 3, <-- $i = 0 4, 5, 6, <-- $i = 1 7, 8, 9, <-- $i = 2 ^ ^ ^ | | | $j = 0 $j = 1 $j = 2 ); #### @array = ( [ 1, 2, 3 ], # <-- $i = 0 [ 4, 5, 6 ], # <-- $i = 1 [ 7, 8, 9 ], # <-- $i = 2 ^ ^ ^ | | | $j = 0 $j = 1 $j = 2 ); #### @array = ([ 1, 2, 3 ], [ 4, 5, 6 ], [ 7, 8, 9 ]); ^^^^^^^^^^^ ^^^^^^^^^^^ ^^^^^^^^^^^ $i = 0 $i = 1 $i = 2 # @array = , , ; # = 1, 2, 3 # = 4, 5, 6 # = 7, 8, 9 #### @array = ( 5, 5 ); #### @array = (); #### # $i = 0, $j = 0, $k = 1 @array = ( [ 1 ] ); #### @array = ( [ 1, 2 ] ); #### @array = ( [ 1, 2, 3 ] ); #### @array = ( [ 1, 2, 3 ], [ 4 ] );