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