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