chomp($headerline = <INFILE>);
my @header = split(/\t/,$headerline);