@monthPost = (
"-", "st", "nd", "rd", "th", "th", "th", "th", "th", 
"th", "th", "th", "th", "th", "th", "th", "th", "th",
"th", "th", "th", "st", "nd", "rd", "th", "th", "th",
"th", "th", "th", "th", "st"
); 

$textInput = "$mday$monthPost[$mday]" # etc.