my @array = split(/\t/, $line);