% perl -wle '@aoa = map [(1) x 3], 1..3; $aoa[1][2] = 3; print "@$_" for @aoa'
1 1 1
1 1 3
1 1 1