use Lingua::EN::Numbers::Ordinate;

sub num2ord {
 my $n = shift;
 ordinate($n);
}