print map{y/X_/\n /;$_}map{$n=$_;map{$$_[$n]}map{[/./g]}
qw(JaercX unrlk so__e ttphr _hea.)}(0..5)

##</code><code>##

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