my @cols = split /\t/, $line;