Select Code to Download

#!/usr/bin/perl -w
use strict;
...
2111
11111

sub W{map{[split//]}&P}

sub P{
 my$i=my$n=pop;
 push@_,grep{!grep{$_>$i}@$_}map{[$i,@$_]}P($n-$i)while$i-->1;
 [$n],@_
}