sub interleave {
  map { my $ndx = $_; map {$_->[$ndx];} @_;} (0..$#{$_[0]});
}