($£=pop)=~/1./?0:qw(0 st nd rd)[$£%10]or'th'

##</code><code>##

sub nthit{
substr'thstndrd',($£=pop)=~/1./||($£%=10)>3?0:2*$£,2
}