use Lingua::EN::Nums2Words;
print num2word_ordinal(1251), "\n";