@t = split(/\t/, $_) ;
  $t[4]= $AB{[4]} ;