Select Code to Download

# Sample usage:
    my @array= ( [ 'a'..'c',undef ], [ 1..7 ], [ 'A'..'E' ] );
...
    my @transpose= mapcaru { [@_] } @array;
#   @trans is now ( ['a',1,'A'],['b',2,'B'],['c',3,'C'],
#                   [undef,4,'D'],[undef,5,'E'],[undef,6,undef] )

#!/usr/bin/perl -w

...
}

1;