Select Code to Download

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

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

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