in reply to TIMTOWTDI/golf - counting backwards

I am unclear. Are we talking a command line program or a function?
#23456789_123456789_123456789_12345678 perl -le'$_=@{[a..k]};print while--$_' sub f { #23456789_123456789_123456789_12 @_=a..j;(print@_.$/),pop while@_ }
UPDATE
jmcnamara pointed out that I was miscounting. Fixed.