@$arr[$_,$n] = @$arr[$n,$_];