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