Select Code to Download

sub split_into {
   my $howmany = shift;
...
   unshift(@buckets, [ reverse splice(@from, 0, @from / $howmany--) ])
+ while $howmany;
   @buckets;
}

sub split_into {
   my $howmany = shift;
...
      { [ reverse splice(@from, 0, @from / $_) ] } 
      reverse 1 .. $howmany;
}