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