Array 2D

Source:

Style A:
[src]@a=( 1,2 );
@b=(3,4);
$a1=@a;
$b1=@b;

@d=($a1,$b1);
print $d[1][1];

[/src]

Style B:
[src]
@a=( 1,2 );
@b=(3,4);

@d=(@a,@B);
print $d[1][1];

[/src]


Output:
[src]
4
[/src]