I suspect this may have been already done, but without looking at any other replies I get 38 chars.
UPDATE pulled 3 chars off by using $/ instead of "\cJ"... Yowzer! chimpmunk++!
#12345678901234567890123456789012345678 unshift@a,++$;while$;<ord"\cJ";print@a unshift@a,++$;while$;<ord$/;print@a
Now to see the other solutions... :-)

Yves / DeMerphq
When to use Prototypes?

In reply to Re: TIMTOWTDI/golf - counting backwards by demerphq
in thread TIMTOWTDI/golf - counting backwards by Juerd

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":