my @arr1 = @{$r1};
my @arr2 = @{$r2};

##</code><code>##

$r2->[1] = "q";