perl -e "print map qq($_\n), glob('{A,B}{a,b}');"