Select Code to Download

my $suffix;
$suffix = 'st' if ($nouser =~ /1$/);
...
$suffix = 'rd' if ($nouser =~ /3$/);
$suffix = 'th' if ($nouser =~ /(?:4|5|6|7|8|9|0)$/);
$suffix = 'th' if ($nouser =~ /(?:11|12|13)$/);

my $suffix;
if    ($nouser =~ /(?<!1)1$/) { $suffix = 'st'; }
elsif ($nouser =~ /(?<!1)2$/) { $suffix = 'nd'; }
elsif ($nouser =~ /(?<!1)3$/) { $suffix = 'rd'; }
else                          { $suffix = 'th'; }

my $suffix;
local *_ = \$nouser;
...
elsif (/(?<!1)2$/) { $suffix = 'nd'; }
elsif (/(?<!1)3$/) { $suffix = 'rd'; }
else               { $suffix = 'th'; }

my $suffix;
foreach ($nouser) {
...
   elsif (/(?<!1)3$/) { $suffix = 'rd'; }
   else               { $suffix = 'th'; }
}

my $suffix;
foreach ($nouser) {
...

   $suffix = 'th';
}