# but also you can create r of n objects permutation generator, where r <= n
my $p = Algorithm::Permute->new([1..4], 3);