...map{"@$_\n"}@a...
...map"@$_\n",@a...

##</code><code>##

...map{$$_[0]>$i?():[$i,@$_]}P($n-$i)...
...map$$_[0]>$i?():[$i,@$_],P($n-$i)...

##</code><code>##

sub P{
my$i=pop;[$i],map{--$i;map$$_[0]>$i?():[$i,@$_],P($_-1)}2..$i
}