use strict;

my $filename = 'test.tsv';

open (FILE, $filename);

my @headers = split(/\t/,<FILE>);

while (my $line = <FILE>) {
   my @fields = split(/\t/,$line);
}
close (FILE);