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