sub suffer {
    BEGIN { our %suff = (1,'st', 2,'nd', 3,'rd', 21,'st', 22,'nd', 23,'rd', 31,'st'); }
    return $_[0] . ($suff{$_[0]} ? $suff{$_[0]} : 'th');
}