surprisingly, List::MoreUtils doesn't seem to have unzip

sub unzip { my ($a, $b) = ([], []);
  while (@_) { push @$a, shift; push @$b, shift }
  [$a, $b]
}
[download]