in reply to Getting permutations of length n of an array of length greater than n?

Instead of Algorithm::Permute, try Math::Combinatorics or Algorithm::Combinatorics.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
  • Comment on Re: Getting permutations of length n of an array of length greater than n?
  • Download Code