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

##</code><code>##

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