use strict;
use warnings;

use feature qw(say);

my %foos;

# Grab the table and put it into a hash of arrays.
while( my $line = <DATA> ) {
    chomp $line;
    my( $foo, @values ) = split /\s+/, $line;
    $foos{$foo} = \@values;
}

# Hang onto the foos as keys in sorted order.
my @foo_keys = sort keys %foos;

# Figure out how wide the table is (must be uniform across foos).
my $last_col = $#{ $foos{ $foo_keys[0] } };

foreach my $col ( 0 .. $last_col ) {
    print map { "$_\t$foos{$_}->[$col]\n" } @foo_keys; 
}


__DATA__
foo1    1    4    7
foo2    2    5    8
foo3    3    6    9