($a,$b)=split ("\t");
$a=@a;
$b=@b;