in reply to TIMTOWTDI/golf - counting backwards

Here's my go:
perl -le'@j=(A..K);print$#j--while$#j'