Select Code to Download

sub group {
   my $n = shift;
...
   push @rv, splice(@_, 0, $n) while @_;
   return @rv;
}