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