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