my $num = $ARGV[0];

$num .= 'st' if (substr($num, -1) == 1);
$num .= 'nd' if (substr($num, -1) == 2);
$num .= 'rd' if (substr($num, -1) == 3);
$num .= 'th' if (substr($num, -1)  > 3);

print "$num\n";