#!/usr/bin/perl
use strict;
use warnings;
$|++;

my $alphaGen = sub { scalar glob "{A,B,C}{A,B,C}" };

print $_,$/ while $_ = $alphaGen->();