Как получить суффикс порядкового номера целого числа в Perl (, например st, nd, rd, th)

У меня есть номер, и мне нужно добавить суффикс :'st', 'nd', 'rd', 'th'. Так, например, :, если число равно 42, суффикс будет «nd», 521 — «st», 113 — «th» и так далее. Мне нужно сделать это в Perl. Любые указатели.