Here is the golf version of your program

#!perl -lawn

$f = shift @F;
$i = 1;
print join "\t", $., $f, $i++, shift @F, shift @F while @F;
[download]

see perldoc perlrun, perldoc perlvar for details