perl -e ' $A[5][2]= 33; $B[1][1]=4; $B[5][2]= $A[1][1]; $B[1][1]=9; print "A=$A[5][2], B=$B[1][1]\n";'
A=33, B=9