@$r[1,2] = @$r[2,1];