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

##</code><code>##

A = 9, B = 33