print map "$_\n", glob("{A,B}{a,b}");