Select Code to Download

#  1.  Convert "shift" to "pop" to save 2 chars
#  2.  Convert leading "if" to trailing "&&" to
...
#  Savings = 4 chars (86 total chars)

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)
+while$n-1}p(pop)

#  4.  Remove parens from subroutine for 1 char
#
#  Total:  85 chars

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)
+while$n-1}p pop