Select Code to Download

sub s2 {
  my @r2;
...
  }
  return \@r2;
}

sub s2 {
  my @r2;
  push @r2, [ splice @_, 0, 2 ] while @_;
  return \@r2;
}