for(1 .. 31){
  print $_ . suffix($_) . "/n";
}


##</code><code>##

    @suffixes = ( undef, 'st','nd','rd' ... etc);
    return $suffixes[$_[0]];

##</code><code>##

    $_[0]=~/(\b|[^1])(\d)$/;qw(0 st nd rd)[$2]or'th'