sub split_into {
   my $howmany = shift;
   my @from = reverse @_;

   my @buckets;
   unshift(@buckets, [ reverse splice(@from, 0, @from / $howmany--) ]) while $howmany;
   @buckets;
}