$_ = <IN>;
chomp;
my @column = split /\t/;