print "[", join(", ", @$_), "]\n" for permute([1,2], [1,2]);

##</code><code>##

[1, 1]
[1, 2]
[2, 1]
[2, 2]