chomp( my $line = <$table1> );
my @header_for_table1 = split /\t/, $line;