Select Code to Download

1 => 'first',
2 => 'second',
...
...
30 => 'thirtieth',
...

use Number::Spell;

...
}

print join(', ',@stringlist);