my $set = '{' . join(',','a'..'z','A'..'Z') . '}';
for my $elem (glob($set x 4)) { print $elem,$/; }