view release on metacpan or  search on metacpan

scripts/Array-Transpose-example.pl  view on Meta::CPAN

print  "Output\n";
printf "Rows: %s, Columns: %s\n", scalar(@output), scalar(@{$output[0]});
printf "%s\n", join(" ", @$_) foreach @output;

__END__

=head1 NAME

Array-Transpose-example.pl - Simple example on the use of the transpose function

=head1 OUTPUT

  Input
  Rows: 4, Columns: 3
  a b c
  1 2 3
  4 5 6
  7 8 9
  Output
  Rows: 3, Columns: 4
  a 1 4 7