my @data = split("\t", $_);