you can save one char by removeing the brackets from the subroutine call

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