my $generator = sub { scalar glob "{A,B,C,D,E,F}{0,1,2,3,4,5,6,7,8,9}{P,Q,R}" };
...
while ($_ = &$generator) {
  print "$_\n"; # sample usage
}