#!/usr/bin/perl -l

use strict;

while( <> ) {
    chomp;
    local $, = "\t";
    my ($name, $val1, $val2, @val3) = split ( "\t" );
    print $name, $val1, $val2, $_ for @val3;
}