#!/usr/bin/perl -l -n
@F = split/\t/;
$a[$_][$.-1] = $F[$_] for (0..$#F);
END{ print join "\t", @{$a[$_]} for (0..$#a) }

=head1 NAME

transpose-tsv  -- invert a tab-delimited table

=head1 DESCRIPTION

This stdin-stdout filter assumes that the input is two or more lines
of plain text consisting of tab-separated-values, and that all lines
have a consistent number of fields.  (It doesn't do sanity checks.)

The output will be transposed (or inverted), so that what had been
columns in the input become rows, and vice-versa.  Input like this:

  heading1  heading2  heading3
  value11   value12   value13
  value21   value22   value23
  value31   value32   value33

will be output like this:

  heading1  value11   value21   value31
  heading2  value12   value22   value32
  heading3  value13   value23   value33

=head1 AUTHOR

David Graff

=cut