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

print "@set\n";

##</code><code>##

$ ./700577.pl
AP1 AP2 AP3 AP4 AP5 AQ1 AQ2 AQ3 AQ4 AQ5 AR1 AR2 AR3 AR4 AR5 BP1 BP2 BP3
BP4 BP5 BQ1 BQ2 BQ3 BQ4 BQ5 BR1 BR2 BR3 BR4 BR5 CP1 CP2 CP3 CP4 CP5 CQ1
CQ2 CQ3 CQ4 CQ5 CR1 CR2 CR3 CR4 CR5 DP1 DP2 DP3 DP4 DP5 DQ1 DQ2 DQ3 DQ4
DQ5 DR1 DR2 DR3 DR4 DR5