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.
A foolish day
Just another day
Internet cleaning day
The real first day of Spring
The real first day of Autumn
Wait a second, ... is this poll a joke?
Results (485 votes),