my $suffix;
foreach ($nouser) {
   /(?<!1)1$/ && do { $suffix = 'st';  last };
   /(?<!1)2$/ && do { $suffix = 'nd';  last };
   /(?<!1)3$/ && do { $suffix = 'rd';  last };

   $suffix = 'th';
}