my $r = join',','a'..'z'; 
print for glob "{$r}{$r}";;
print for glob "{$r}{$r}{$r}";;