$ echo "foo1 1       4       7
foo2    2       5       8
foo3    3       6       9" | perl -e'

my @data;
while ( <> ) {
    push @data, [ split ]
    }

while ( @{ $data[ 0 ] } > 1 ) {
    print map "$_->[0]\t@{[ splice( @$_, 1, 1 ) ]}\n", @data
    }
'
foo1    1
foo2    2
foo3    3
foo1    4
foo2    5
foo3    6
foo1    7
foo2    8
foo3    9
[download]