Solutio: Litterare numerum

my $n = @*ARGS[0];

my @nomina = <
    zero unus duo tres quattuor quinque sex septem octo novem decem
    undecim duodecim tredecim quattuordecim quindecim sedecim septendecim duodeviginti undeviginti viginti
    triginta quadraginta quinquaginta sexaginta septuaginta octoginta nonaginta >;

if $n < 20 {
    dic @nomina[$n];
}
elsif $n % 10 { # Numeri duo-digiti non-rotundi, e.g., 34
    dic @nomina[$n / 10 + 18] ~ '-' ~ @nomina[$n % 10];
}
else { # Multipla 10, e.g., 50
    dic @nomina[$n / 10 + 18];
}