解决方法
来自
Lingua::EN::Numbers的perldoc：
@H_403_8@use Lingua::EN::Numbers qw(num2en num2en_ordinal);
my $x = 234;
my $y = 54;
print "You have ",num2en($x)," things to do today!\n";
print "You will stop caring after the ",num2en_ordinal($y),".\n";
打印：
@H_403_8@You have two hundred and thirty-four things to do today! You will stop caring after the fifty-fourth.