#!/usr/bin/perl
print map "$_\n", glob("{A,B,C}{a,b,c}");