Help for this page
sub t{@_||print"$, ";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for 1..@_}t(1..9)
sub t{@_||print"$, ";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for@_}t(1..9)