#!/usr/bin/perl
use strict;
use warnings;

my @perms = glob "{1,2,3}" x 3;
print "@perms\n";

@perms = glob "{1,2,3}" x 2;
print "@perms\n";

__END__
Prints:
111 112 113 121 122 123 131 132 133 211 212 213 221 222 223 231 232 233 311 312 313 321 322 323 331 332 333

11 12 13 21 22 23 31 32 33


##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my @perms = glob "{a,b,c,d,e}" x 3;
print "@perms\n";
print "\n";


@perms = glob "{a,b,c,d,e}" x 2;
print "@perms\n";

__END__
Prints:
aaa aab aac aad aae aba abb abc abd abe aca acb acc acd ace ada adb adc add ade aea aeb aec aed aee baa bab bac bad bae bba bbb bbc bbd bbe bca bcb bcc bcd bce bda bdb bdc bdd bde bea beb bec bed bee caa cab cac cad cae cba cbb cbc cbd cbe cca ccb ccc ccd cce cda cdb cdc cdd cde cea ceb cec ced cee daa dab dac dad dae dba dbb dbc dbd dbe dca dcb dcc dcd dce dda ddb ddc ddd dde dea deb dec ded dee eaa eab eac ead eae eba ebb ebc ebd ebe eca ecb ecc ecd ece eda edb edc edd ede eea eeb eec eed eee

aa ab ac ad ae ba bb bc bd be ca cb cc cd ce da db dc dd de ea eb ec ed ee