can gather/take have multiple bins

[Dave Whipp]

I was wondering just how much once can do with gather/take: is it possible
to have multiple bins?

@words = << abc def ade afe ade agc >>;

gather @bin1, @bin2 -> $bin1, $bin2{
  for @words {
    $bin1.take if /^^a/;
    $bin2.take if /e$$/;
  }
}

?