After installing Lingua::FR::Numbers, Lingua::IT::Numbers and Lingua::EN::Numbers, then Lingua::Any::Numbers produces:

$ perl -l
use strict;
use warnings;
use Lingua::Any::Numbers qw(:std);
foreach my $lang ( available ) {
         print join(q{,}, map { to_string(  $_, $lang ) } (1 ..9));
         print join(q{,}, map { to_ordinal(  $_, $lang ) } (1 ..9));
}
__END__
un,deux,trois,quatre,cinq,six,sept,huit,neuf
1,2,3,4,5,6,7,8,9
one,two,three,four,five,six,seven,eight,nine
first,second,third,fourth,fifth,sixth,seventh,eighth,ninth
uno,due,tre,quattro,cinque,sei,sette,otto,nove
1,2,3,4,5,6,7,8,9
[download]