I usually use Lingua::EN::Nums2Words for that type of job.

use strict;
use Lingua::EN::Nums2Words;
print &num2word(12345)."\n";
print &num2word_ordinal(12345)."\n";
[download]

/brother t0mas