my @match_A = split /\t/, $line;
push @list_of_headers, @match_A[4..$#match_A];

##</code><code>##

@list_of_headers= @match_A[4..$#match_A];