Select Code to Download

my @a = ( [ 1,2 ], [3,4] );
print $a[1]->[0]; ## => 3
print $a[1][0]; ## same thing