my @copy = @$r;
for( @copy ) {
    push @$r2, [ $_, shift @copy ];
}