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

##</code><code>##

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