#!perl -lwn

my @data = split /\s+/;
my $first = shift @data;

for (my $i = 0; $i < @data; $i+=2) {
    print join "\t", $., $first, $i/2+1, $data[$i], $data[$i+1];
}