#! /usr/pkg/bin/perl

while (<>) {
    chomp;
    my @d = split(/\t/, $_);

    for (my $i = 1; $i <= 5; ++$i) {
	print "$d[0]\t$i\t$d[$i]\n";
    }
}