my @vareach=split(/(?<!,)\t/,$var);