Help for this page

Select Code to Download

Select or download this

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