printf "bar=%s, biz=%s, foo=%s\n", split //, $_
  for glob('{A,B,C}{1,2,3}{Y,Z}')