my $vals = join(',',(0..9,'a'..'z','A'..'Z','_')); say $_ for glob ("{$vals}{$vals}{$vals}");