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