in reply to
qw(0 st nd rd)[pop=~/(1?.)$/]or"th"
will do any integer.
Note that for pre-5.6 perl you have to do
because qw was translated into split' ','...' during compilation.
My savings account
My retirement account
Winning the lottery
A Post-scarcity economy
Retirement?! You'll have to pull the keyboard from my cold, dead hands
I'm independently wealthy
Results (124 votes),