$ perl -e '$,=$\=$/; print glob( "{A,B},{1,2},z" );'
A,1,z
A,2,z
B,1,z
B,2,z
$