http://qs321.pair.com?node_id=648550


in reply to How to swap rows with columns?

use List::MoreUtils qw( each_array );

my $iterator = each_array( @a, @b, @c );
while ( my @col = $iterator->() ) {
    print "@col\n";
}

[download]
My criteria for good software:
  1. Does it work?
  2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

In Section Seekers of Perl Wisdom