note satchboost I know that I'm bending the rules a little, but this does get below 50. <p><code>sub c{my$n=pop;--$n?map{my$c=$_;map$c.$_,c(@_,$n)}@_:@_}</code> <p>Example: <p><code>print join " ", c qw(a b c 2); print "\n"; print join " ", c qw(0 1 4); print "\n"; </code> 75261 75261