in reply to TIMTOWTDI/golf - counting backwards

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

[download]

In Section Meditations