Select Code to Download

{
 my @thsuffix = (qw(th st nd rd), (th) x 6);
...
 }
}

sub th {
  my $n = shift;
...
    return $n . "th";
  }
}