unless(exists($Tex{$a}))
{
  @{$Tex{$a}} = @bex;
}