my @a = split(/\t/,$a,-1);