Is this what you want? (Neither pop nor shift load $_ by defalult -- they just default to using @_ in a sub or @ARGV in the main prog.)

$_=pop;qw(0 st nd rd)[!/1./&&$_%10]or'th'
[download]

  p