my $list = join ',', 'a' .. 'z';
mkdir '1';
open my $FH, '>', $_ for glob '1/' . ("{$list}" x 3);