#!/usr/bin/perl
open FH,'test.tsv';
@data=<FH>;
$len=scalar (@data);
for($i=1;$i<=$len;$i++){
print $data[$i];
}

##</code><code>##

id      date    name1   name2 	namen
123     2010-02-23      0       0.00	0
1234    2010-02-24      0       3	0

##</code><code>##

id      date    name1   name2 	namen
1234    2010-02-24      0       3	0