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

That just returns a copy of the original list. You probably meant push @rv, [ splice(@_, 0, $n) ] while @_;.