my @headers = split("\t",<$IN>);
my $index = first{$headers[$_] eq 'Strand'} 0..$#headers;