for( my $i=0; $i < scalar @$r; $i += 2 ) {
  $r2->[$i/2] = [ @$r[$i, $i+1] ]
}