@a=([0,1,2]);
@b=([-1,-2,-3]);


unshift @a,1;
$a[0][0]=4;
$a[0][1]=5;
$a[0][2]=6;


unshift (@b,1);
$b[0][0]=7;
$b[0][1]=8;
$b[0][2]=9;

print $a[0][2];
print $a[1][2];
print $b[0][2];
print $b[1][2];