sub num2ord {
  local $_ = shift;
#          1        2         3         4         5         6         7
# 123456789012346789012345678901234567890123456789012345678901234567890
  $_.qw(th st nd rd)[/(?<!1)([123])$/*$1]
}