use Lingua::EN::Numbers::Ordinate; sub num2ord { my $n = shift; ordinate($n); } [download]
In reply to Re: Golf - Ordinal Suffixes by zshzn in thread Golf - Ordinal Suffixes by sauoq