if ($var1[2] and exists $Ab{$var1[2]}) {
    print OUT "$var1[0]\t$var1[1]\t$var1[2]\t$AB[4]\n" ;
  }