my @set = glob "{A,B,C,D}{P,Q,R}{1,2,3,4,5}";

print "@set\n";