Select Code to Download

foreach(@$input){
  # add this to make sure that we have combinations rather than permut
+ations:
  next if( defined($v) && $_ < $v->{'number'} );
  ...

tr_strictly_perms.pl : here are all the solutions:
1)5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
...
11)7,7,7,7,5,2
12)5,5,5,5,5,5,5
13)7,7,7,7,7