You can do either of the following:

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

Or the more explicit dereferencing way:

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

Either way should work.

His Royal Cheeziness