@copy = @$r;
while (my @pair = splice @copy, 0, 2) {
  push @$r2, [@pair];
}