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