#!/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